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Gut versorgt 

Deutschen Rückstand machte 
die Münchener Unternehmens- 
beratung Dr. Höfner aus: Pro 
Kopfder Bevölkerung seien 1983 
in den USA zehnmal soviel Mi- 
krocomputer für gewerbliche 
Zwecke verkauft worden wie in 
der Bundesrepublik. 

Bei Heimcomputern stehen 
wir wesentlich besser da: BisEn- 
de 1984 hatte Commodore nach 
eigenen Angaben in der Bun- 
desrepublik rund 700000 Heim- 
computer verkauft — 100000 VC 
20 und 600000 S4er. In den USA 
wurde etwa das Dreieinhalbfa- 
che davon abgesetzt, rund 2Mil- 
lionen 64er und 1,] Millionen VC 
20. Geht man davon aus, daß die 
Vereinigten Staaten etwa die 
vierfache Bevölkerungszahl ha- 
ben, und daß der Commodore- 
Marktanteil in beiden Ländern 
ungefähr gleich groß ist, dann 
kann man sagen: Die Deutschen 
sind mit Heimcomputern etwa 
gleich gut versorgt (oder gleich 
stark daran interessiert) wie die 
Amerikaner. Diese Schlußfolge- 
rung läßt sich auch dann noch 
aufrechterhalten, wenn man be- 
rücksichtigt, daß in den USA 
häufig Systeme wie Apple II 
oder IBM-PC als »Homecompu- 
ter« verwendet werden. , 

Hier zeigt sich eine Tücke der 
Statistiken: Wir werden uns an 
neue Bedeutungen bekannter 
Begriffe gewöhnen müssen. Der 
Heimcomputer wird daheim, 
der Bürocomputer im Büro be- 
nutzt — über die Art und Lei- 
stungsfähigkeit des Grundgerä- 
tessagensolche Bezeichnungen 
in Zukunft noch weniger aus als 
heute. Und da die Leistung der 
kleinen billigen Computer zu- 
nimmt (auch von Commodore 
soll es ja 1985 leistungsfähigere 
Modelle geben), wird künftig für 
viele berufliche Anwendungen 
ein »Heimcomputer« ausrei- 
chen. Damit werden sich die pri- 
vat gewonnenen Erfahrungen 
noch sehr viel direkter als bis- 
her auf den Computer im Be- 
trieb anwenden lassen. 

Michael Pauly, Chefredakteur 






MC! Mail: die schnelle Post 


In den USA gibt es private Postbeförde- 
rungsunternehmen mit einem erstaunli- 
chen Angebot. Wir wollen am Beispiel 
der MCI Mail zeigen, was diese Firmen 
zu leisten imstande sind. Vor allem soll 
aber der G 64 über das Datex-P-Netz an 
diesem Service teilnehmen. 


riefe, genau genommen 

deren Laufzeit zum Emp- 
fänger, sind nicht nur hier in 
der Budesrepublik ein stän- 
diges Ärgernis und ein Dau- 
erthema in den Tageszeitun- 
gen. In den USA sind die 
(Post) Wege naturgemäß 
noch länger und die staatli- 
che US-Mail muß sich häufig 
vorwerfen lassen, eine 
»Snail-Mail«, eine Schnek- 
kenpostzu sein. Und wennes 
bei uns in Deutschland dar- 
um geht, ob ein 80-Pfennig- 
Brief nun wirklich am näch- 
sten Morgen vom Briefträger 
ausgetragen wird oder 
nicht, dann gehtesin Ameri- 
ka darum, ob der Brief mit 
„Federal Express Overnight 
Delivery« für 14,00 Dollar (43 
Mark) nun wirklich über 
Nacht von New York nach 
San Francisco gelangt. 

Wen wundert es da, daßin 
den USA das Geschäft mit 
der privaten Postbeförde- 
rung blüht. In TV-Werbe- 
spotsstechen sie sich gegen- 
einander aus, einer ist 
schneller und sicherer als 
der andere. 

Den Vogel abgeschossen, 
und man könnte fast meinen, 
das Wappentier der USA sei 
damit gemeint, hatzweifellos 
ein Unternehmen, dasschon 
seit Jahren mit ihren preis- 
werten Telefon-Fernleitun- 
gender großen »Ma Bell« be- 
ziehungsweise der AT&T 
Konkurrenz macht: MCI. 
Diese Gesellschaft ist inzwi- 
schen so mächtig, daß sie ei- 
ne große und bekannte Kom- 
muniktions-Gesellschaft, die 
Western Union (WUI) mit ih- 
ren Telex-Netzen geschluckt 
hat. MCI hat also eine Toch- 
tergesellschaft gegründet: 
die MCI Mail — The nation's 
new postal system. 

Seit rund einem Jahr gibt 
es MCI Mail, und die Anzahl 


der Benutzer vermehrt sich 
geradezu nach dem Schnee- 
ball-System. Der Grund: die 
Postbeförderung von MCI 
braucht nur Sekunden! Das 
Geheimnis: elektronische 
Postfächer, also »Mailboxen« 
mit den Zusatzdienstleistun- 
gen einesriesigen Kommuni- 
kations-Apparates, seinen 
Datenleitungen, Druckersta- 
tionen, Telegrammboten 
und Telexnetzen. Und das 
Ganze zu erschwinglichen 
Preisen. 


In Ausgabe 10/84 von 
64er hat Thomas Ober- 
mair über »Datex-P und 
ausländische Netzwerke« 
berichtet. Auf der Kennt- 
nis dieses Artikels baut 
der folgende Bericht auf 
und setzt insofern Wissen 
über das Funktionieren 
von Datex-P dem PAD ei- 
ner NUlundso weiter vor- 
aus. 


Die jährliche Grundge- 
bühr, die Annual Mailbox 
Fee, beträgt 18Mark, aufden 


Monat umgerechnet also 
1,50 Dollar oder rund 4,50 
Mark. 


Einen »Kurzbrief« von bis 
zu 500 Zeichen abzuschicken 
kostet 0,45 Dollar oder 1,35 
Mark, ein Brief von bis zu 
7500 Zeichen (etwa 4 Druck- 
seiten) je 1 Dollar, also 3 
Mark. Eine Speicherbenut- 
zungsgebühr gibt es nicht. 
Esistalso völligegal, wielan- 
ge der Brief im Speicher »la- 
gert«. Das »AÄbholen« der 
Briefe aus dem Speicher ist 
kostenlos. In den meisten 
Städten der USA gibt es Tele- 
fonnummern, unter denen 
MCI Mail zum Ortstarif er- 
reichbar ist. Wohnt man in 
ländlichen Gebieten, be- 
nutzt man eine sogenannte 
WATS-line, eine Telefonnum- 





mer mitder Vorwahl 800, bei 
der der Ängerufene, also 
MCI Mail, die Gebühren 
übernimmt. Dieser Service 
ist dann allerdings mit 15 
Cents pro Minute in der 
nächsten Monatsrechnung 
wiederzufinden. 

Mit diesen Gebühren ist 
damitinnerhalb der USA der 
ganz Spaß bezahlt. MCI Mail 
wäre aber kein typisch ame- 
rikanisches System, wenn es 
nicht zusätzlich eine Vielzahl 
von erstaunlichen Möglich- 
keiten böte, die der Beaquem- 
lichkeit ihrer Kunden entage- 
genkäme. Und zusätzlicher 
Service kostet natürlich 
Geld. Und das ist es, was 
man auch dort verdienen 
möchte, denn kein Postsy- 
stem der Welt, ob nun staat- 
lich oder privat, arbeitet nur 
für den »Spaß an der Freud. 

Es fängt an mit dem Servi- 
ce »Mail Alert«. Für einen zu- 
sätzlichen Dollar ruft MCI 
Mail den Briefempfängeran, 
um ihn auf den Posteingang 
aufmerksam zu machen. 

Und was ist, wenn der 
Briefempfänger nun gar kein 
»Postfach« bei MCI Mail hat? 
Kein Problem: Für einen Dol- 
larmehr wird derBriefinder 
nächsten Großstadt ausge- 
druckt und mit der staatli- 
chen Post als »First Class 
Maäil« zugestellt. Das ist in 
der Regel nach 24 Stunden 
der Fall. Für 8 Dollar kann 
man sogar die Zustellung 
mittels Kurier am nächsten 
Tag verlangen, vorausge- 
setzt, der elektronische Brief 
wurde bis 23.00 Uhr einge- 
speichert. Und für ganz eili- 
ge Sachen gibt es noch den 
4-HOUR-Service. Für sage 
und schreibe 30 Dollar, also 
90 Mark wird die Zustellung 
in den ganzen USA per MCI- 
Mail-Boten in spätestens 4 
Stunden garantiert. 

Wie sehen diese gedruck- 
ten Briefe aus? Nun, im Nor- 
malfall, zum oben genannten 
Preis, handelt es sich um 
Briefpapier mit MCI-Brief- 
kopf. Dazu wird Name und 
Adresse des Absenders ge- 
druckt, dann Name und An- 
schrift des Empfängers, an- 
schließend der Text und die 
Unterschrift in Druckschrift. 
Aber: Für 20 Dollar pro Jahr 
kann man auch seinen eige- 
nen Briefkopf einspeichern 
lassen, der sogar grafische 
Darstellungen enthalten 





kann. Und für weitere 20 Dol- 
lar wird sogar unter jeden in 
der Ferne gedruckten Brief 
Ihre  Original-Unterschrift 
gesetzt! 

Aber das ist noch nicht al- 
les. Wenn der Brief weder in 
der Mailbox bleiben, noch 
ausgedruckt werden soll, 
kann man auch jede beliebi- 
ge Telexnummer auf der 
Welt als Änschrift eingeben. 
Vollautomatisch wird der 
Brief dann als Telex abge- 
schicktundmanerhältinder 
eigenen Box eine Nachricht, 
daß allesauch angekommen 
ist (mit der Kennung des er- 
reichten Telex-Anschlusses 
als Beweis). Dafür muß man 
dann natürlich die Telexge- 
bühren bezahlen, aber die 
sind verhältnismäßig nied- 
rig. Je 400 Zeichen von den 
USA nach der UdSSR, kosten 
zum Beispiel 1,82 Dollar. Und 
unter jedes Telex schreibt 
das System die »eigene« 
Telex-Nummer, denn von je- 
dem Telexanschluß in der 
Welt kann man Briefe an 
MCI-Mail schicken, die ein- 
fach in der jeweiligen Mail- 
box des Empfängers abge- 
legt wird und sofort abrufbe- 
reit ist. Als Telexnummer 
dienen dazu die Ziffern 650 
und die siebenstellige Kenn- 
ziffer (ID) des MCI-Kunden. 
Von Deutschland aus wählt 
man also inklusive der Vor- 
wahl für die USA zum Bei- 
spiel: 023-650-24125286. 

Soviel generell über das 
Funktionieren dieses Privat- 
post-Unternehmens MCI 
Mail in den USA. Meine 
Freunde in Amerika, Privat- 
personen und Geschäftsleu- 
te, benutzen es täglich. Und 
es kam wie es kommen muß- 
te: Man fragte mich, ob ich 
nicht auch zwecks schnelle- 
rer Kommunikation an MCI 
Mail teilnehmen könnte. Kei- 
ne Frage: Ich wollte schon — 
aber wie?Ichschrieb also an 
MCI Mail, Box 1001, 1900 M 
Street, NW Washington, DC 
20036, Tel.(001202) 8338484, 
und erhielt auf meine Anfra- 
ge, ob ich von Deutschland 
aus an MCI teilnehmen kön- 
ne, und wie das zu machen 
sei, die freundliche Antwort 
von einer Dame namens Ali- 
ce J. Campbell, daß man ei- 
ne »exciting news«, eine auf- 
regenden Nachricht also, für 
mich hätte: Der Verkehr mit 
dem Ausland sei in einer 





Testphase. Neben der Mit- 
gliedschaft bei MCI Mail 
müsse ich nur die örtliche 
PTT, also die Bundespost, um 
Zugang zu deren Datennetz 
bitten. Man wünschte noch 
viel Erfolg. Aus. Leider kein 
Hinweis, ob damit nun DA- 
TEX gemeint war und wel- 
che Nummern man wählen 
muß. Also weitergeforscht. 
Inzwischen war mir zu Oh- 
ren gekommen, daß MCI 
und Western Union Interna- 
tional irgendwie identisch 
seien. Und ich hatte mal ge- 
hört, daß WUI ein Büro in 
Frankfurt/M haben sollte. 
Die Telefonauskunft bestä- 
tigte dies und ich riskierte 
ein paar Einheiten. Ein 
freundlicher Herr mit glei- 
chem Namen wie ich, hörte 
sich meine Wünsche gedul- 
dig an und hatte auch den 
ehrlichen Willen, mir zu hel- 
fen. Dennoch, über MCI 
Mail war nichts bekannt. 


Keine Informatio- 
nen bei der Post 


Nun war das Leitungsmo- 
nopol der Bundesrepublik 
an der Reihe. Mein Brief an 
die Kundenberatung für Da- 
teldienste beim Fernmelde- 
technischen Zentralamt 
(FTZ)in Darmstadt wurde mit 
interessanten Drucksachen 
über DATEX und mit einem 
langen Telefonat beantwor- 
tet. Ein Kontakt, derübrigens 
noch heute besteht und dem 
sich manche interessante 
Neuigkeit entlocken läßt. Ein 
konkretes Ergebnis, etwa in 
der Form, welches Netz von 
Datex-P aus, also zum Beı- 
spiel WUI, RCA, ITT, TYM- 
NET, TELENET und so wei- 
ter angewählt werden müs- 
se, und wie danndie Teilneh- 
mer-Nummer von MCI Mail 
angefügt werden könnte, er- 
gab das Gespräch zu mei- 
nem Kummernicht. Äbernur 
ein paar Tage später riefdas 
FTZ nochmals zurück, mit ei- 
nem interessanten Hinweis: 
Ich möge mich doch mal an 
die große Kommunikations- 
gesellschaft TYMNET wen- 
den. Die hätten ein Europa- 
Büro in Paris! Gesagt, getan, 
ich wollte schließlich keine 
Chance auslassen. Gerech- 
terweise muß ich hier einfü- 
gen, daß dieser Tip Gold 


wert war, und schließlich auf 
die richtige Spur führte. Die 
TYMNET-Mitarbeiter Domi- 
nique Marchad und Jean 
Francois Morfin kümmerten 
sich mit einer überraschen- 
den Energie und einer Fülle 
von Nachrichten um mein 
Anliegen. Nicht von unge- 
fähr, wie ich erfuhr: TYM- 
NET ist verantwortlich für die 
internationale Aufschaltung 
von MCI Mail, und deren 
»host« 004759. 

Alsoschnellnachgeschaut 
in der Datex-P Bedienungs- 
anleitung der Bundespost: 
TYMNET hat die Vorwahl 
03106. Dazu 004759, das 
müßte es also sein. Vorsorg- 
lich hatte ich mir bei der Post 
schon eine NUI besorgt, und 
nun konnte der Versuch mit 
meinem C 64, der 1541, dem 
Drucker Seikosha GB100VC 
und dem Tandy-Akustikkop- 
pler AC-3 starten. 

Die Hamburger Zugangs- 
nurmmer für Datex-P war wie 
die anderer Großstädte der 
Datex-Bedienungsleitung zu 
entnehmen, also 441231. So- 
gleich ertönt der Carrier-Ton 
und ich gab vorschriftsmäs- 
sig .(CR) ein. Nun wurde ich 
nach meiner NUI und dem 
von der Post zugeteilten 
Passwort gefragt. Das Sy- 
stem antwortete, daß meine 
NUI nun »aktivesei — was na- 
türlich vor allem bedeutet, 
daß man nun die anfallen- 
den Gebühren berechnen 
würde. Ich tippte auf der Ta- 
statur 03106004759. Nach zir- 
ka 5 Sekunden kam die Ant- 
wort: »Port 48 please log in«. 
Hier wurde nun der Name 
des MCI-Mitgliedes erwar- 
tet, und zwar in der Form, 
daß ein HerbertSchmidtein- 
geben müßte: HSchmidt/ 
half. Das »haltf« ist notwendig, 
um den MCI-Computer auf 
Halbduplex zu stellen. Sonst 
gibt es Echo-Probleme. Da- 
nach wurde das von MCI 
Mail zugeteilte Passwort er- 
fragt. 

Früher, so wurde mir ge- 
sagt, konnte man als Neuling 
als Name und als Passwort 
jeweils einfach das Wort RE- 
GISTER eingeben und sich 
dann als neues Mitglied ein- 
tragen. Wenn man das heute 
versucht, antwortet einem 
der MCI-Computer höflich, 
daß die Registrierung »on- 
line« nicht mehr möglich sei. 
Man möge bitte anrufen. Das 


gilt natürlich für Kunden in 
den USA. Wenn Sie aber so 
viel Geld haben, können Sie 
gern die oben genannte Te- 
lefonnummer anrufen. Das 
kostet pro Minute 6,67 Mark. 
In Washington ist es übri- 
gens 6 Stunden früher als 
hier. 

In meinem Fall hat übri- 
gens der freundliche Mr. 
Morfin von TYMNET, Paris, 
bei einem Besuch in Was- 
hington die Registrierung 
vorgenommen. Eine Woche 
später hatte ich einen der 
auffälligen, orangefarbenen 
MCI Mail-Umschläge in der 
Hand, genannt »starter kit«, 
mit genauen Eräuterungen 
und meinem Passwort. Das 
war's. Und sie waren zufrie- 
den und gücklich bis ... bis 
zur ersten Rechnung? 

Nun, halb so schlimm. Die 
18 Dollar bei der ersten 
Rechnung tun vielleicht ein 
wenig weh. Aber das kommt 
ja nur einmal im Jahr. Und 
zwei Briefe pro Woche abge- 
schickt, sind 8 Dollar im Mo- 
nat, also 24 Mark. Erwartet 
wird aber in jedem Fall Be- 
zahlung per Scheck in US- 
Dollar und nicht per Euro- 
scheck. Auf Antrag ist auch 
Abrechnung über eine Kre- 
ditkarte wie VISA oder MA- 
STERCARD hier EURO- 
CARD) möglich. Dazu ein 
Tip: bei Banken und sogar 
bei der Post gibt es Ameri- 
can Express Traveller Che- 
aques zum Dollar-Tageskurs 
plus 1 Prozent Versicherung 
in Stückelungen bis herunter 
zu 10 $. 

In den USA zahlt man 
Rechnungen grundsätzlich 
mit Scheck per Post. An je- 
der Rechnung aus Amerika 
hängt daher ein Abschnitt, 
den man mit seinem Scheck 
zurückschick. Und da 
nimmt man von Deutschland 
aus am besten einen Travel- 
ler Scheck, mit dem nächst- 
höheren Wert, schickt das 
Ganze per Luftpost nach 
Washington und bei even- 
tueller Überzahlung wird 
der Restbetrag bis zur näch- 
sten Rechnung gutgeschrie- 
ben. 

Und wie sieht es nun mit 
den Kosten für Datex-P aus? 
Nun, in der Kürze liegt die 
Würze. Wer seine Briefe erst 
online »komponiert« und die 





Verbindung so lange stehen 
läßt, bisallesgeschrieben ist 
und hübsch sauber aussieht, 


kann schon mal anfangen 
Geld zurückzulegen, damit 
die Rechnung der Post kei- 
ne zu große Überraschung 
bringt. Wenn man aber ein 
gutes Terminalprogramm 
besitzt, wie zum Beispiel das 
TERM 64 von Higginbottom 
für den C 64, dann kann man 
Briefe als Files vorschrei- 
ben, auf Diskette speichern 
und dann erst die Verbin- 
dungzu MCI Mail herstellen. 
Die Übertragung geht dann 
mit Höchstgeschwindidgkeit, 
also 300 Baud vor sich. Um- 
gekehrt gibt es zum AÄusle- 
sen der in der Mailbox etwa 
vorhanden Briefe einen Be- 


fehl »PRINT INBOX«. Dann 
kommen alle Briefe in 


Höchstgeschwindigkeit und 


SX 64 spart dem Kran- 
kenhaus viel Geld 


In einem großen Krankenhaus 
miteiner Vielzahl weiterer ange- 












gliedeter Schulungs 
End Wohnu chtungen 
fallen hohe Investitions- und Un- 
terhaltungskosten an. Rationelle 


Betriebsführung anhand einer 
zuverlässigen Betriebsdatener- 
fassung, führt zur erhebli 
Kosteneinsparung. Eine 
für die Groß-EDV, die se elbst Mil- 
lionen kostet? Keineswegs: Im 
Diakonie-Mutterhaus Rosa urg 
an der Wümme, schafft 
barer Commodore SX 6 lie 
Voraussetzung dafür. Allein die 
Ersparnis an Wasser betr m 
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Dabei hatte Betrieb 
Ulrich Hartnick hauptsä 
die Sammlung von Betri 


ohne Unterbrechung hier 
an, gehen zunächst in den 
Terminal-Puffer, und können 
dann in Ruhe nach Auftren- 
nen der Verbindung auf 
Floppy geladen, auf dem 
Bildschirm gelesen und/ 
oder ausgedruckt werden. 

5 Minuten Verbindung mit, 
sagen wir 4000 Zeichen, ko- 
sten bei Datex-P neben der 
monatlichen NUI-Gebühr 
von 15 Mark und der ’Telefon- 
Ortsgesprächsgebühr von 
23 Pfenningen nach den 
USA: 


2 
N 
6) 


von3Mark ergeben also5,55 
Mark für den Brief von 4000 
Zeichen... und das ist eine 
ganze Menge Geschriebe- 
nes. Und mit einem kleinen 
Trick kann man seinen Part- 
nerinden USA schon wenige 

ekunden danach veranlas- 
sen, seine Mailbox zu lesen: 
Man ruft ihn an, für zwei Ein- 
heiten, also 46 Pfennige, 
kann man schnell die Worte 
»MCI Mail« sagen und wie- 
der auflegen. Das wirkt ga- 
rantiert. Der Brief ist somit 
wenige Minuten nach dem 
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Datex-P-Gebühr von 2,55 
Mark und MCI-Mail-Gebühr 


ı Sinne, um für Nas chaf- 
n im’ Energie- und 
gungsbereich vernünfti 
nungsdaten zu gewinnen. 
zum Beispiel die in der Vie 
der Kü ee 
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Absenden gelesen... für run- 
de 6 Mark. Ein Luftpostbrief, 


ten auf Diskette abgelegt und 
auf Wunsch auf dem Bildschirm 
oder dem Drucker ausgegeben. 
Über eine programmierte Ka- 
lenderfunktion hält der SX 64 
Monat, Tag und Uhrzeit zu jeder 
Messung fest. Die Meßwerter- 
fassung erfolgt über eine einfa- 
che Ein-Aus-Abfrage an Magnet- 
chaltern und über Haustelefon. 
Das verwendete Interface 
stammt von GSSE in Braun- 
schweig. Das Äuswertungspro- 
gramm wurde von Ulrich Hart- 
nick selbst erstellt. Eine Analyse 
des Wasserverbrauchs führte 
zur Identifikation ständig laufen- 
der Wäasserverbraucher, die 
aber prinzipiell nur kurzzeitig 
benötigt werden. Das Äbstellen 
dieses »Dauerlaufs« senkte den 
Wasserverbrauch um etwa ein 
Viertel — so kommt die jährliche 
Einsparung von etwa 50000 
Mark zustande, ohne daß ir 












per Eilboten, 2 DIN-A-4-Sei- 
ten lang, dauert mit Sicher- 
heit 5 Tage... mindestens... 
und kostet (18 Gramm) 5,50 
Mark. Was sagen Sie nun? 


UndkürzlichgabMCIMail 
noch eine Neuerung für 1985 
bekannt: Es wird der Post- 
verkehr mit 40 Ländern auf- 
genommen! Und das bedeu- 
tet nicht nur elektronischen 
Zugang wie zur Zeit aus 
Deutschland, sondern auch 
Ausdruck und Zustellung 
der Post in den entsprechen- 
den Ländern. Vielleicht 
kann man Briefe also ebenso 
schnell und preiswert nach 
Australien oder Südafrika 
schicken. Wenn das nichts 
ist? Aber dasSchönste dabei 
ist doch: Es funktioniert alles 
ohne Probleme mit einem 
Commodore 64. 


(Wolfgang R. Schulz/aa) 


gendeine Funktion des Kran- 
kenhauses im geringsten beein- 
trächtigt wird. 

Der Hauptvorteil liegt jedoch 
darin, daßendlich der Bedarfan 
Energie und Versorgungsmit- 








teln zu jeder Tages- und Nacht- 
zeit genau ermittelt werden 


kann. Der SX 64 wertet die Er- 
gebnisse aus, ein weiterer Com- 
puter ist nicht erforderlich. 
Insgesamt zeigt der Einsatz 
des SX 64 am Diakonie-Kranken- 
haus in Rotenburg neue Chan- 
cen für eine umfassende Be- 
triebsdatenerfassung auf. Über- 
iistieren schon große und 
leistungsfähige Computer für 
kaufmännisches Rechnungswe- 
sen, Personalkosten und so wei- 
ter. Aber im täglichen Betrieb 
nutzen sie, und seien sienoch so 
‚ nur selten etwas: Ihnen 
ie entsprechenden Da- 
t die e Datenerfassung an 
3 a den Betriebsab- 
‚hilft Leerläufe 

















nen und schafft verständliche 
Unterlagen für die Planung und 
Entscheidung. Eine Integration 
der am Commodore SX 64 oder 
auch am © 64 gewonnenen Da- 
ten in die Groß-EDV, ist sicher- 
lich möglich und bietet auf län- 
gere Sicht die Fähigkeit, ein be- 
lıebiges Unternehmen ohne we- 
tlichen Leerlauf, Verschwen- 

q und unter Verwendung 
der rationellen Arbeitsmittel zu 
führen _ Der Weg ist vorgege- 
ben von der zentralen Lö- 
zur dezentralen Erfas- 

sung von Daten mittels preisgün- 
stiger »Heimcomputer«, aa) 














Maschinensprache 
sprechen? 


Ich will mit meinem C 64 
RICHTIGE Maschinensprache 
sprechen und finde kein Trai- 
ningsbuch dazu. Ich will keinen 
Assembler! Wer kann mir da 
helfen? 

Meine definitive Antwort lau- 
tet: Keiner. Assembler ist nun 
mal Maschinensprache und Ma- 
schinensprache ist Assembler. 

Das will ich Ihnen so erklären: 
Unter Assembler verstehen Sie 
wahrscheinlich Befehle wie LDA 
(Lade Akku) oder CMP (Verglei- 
che). Maschinensprache ist 
dann die Form, in der das Pro- 
gramm im Speicher liegt, bei- 
spielsweise als $CD für Ver- 
gleich oder $A9 für Akku laden. 
Aber auch das ist noch nicht die 
eigentliche Maschinensprache, 
denn die besteht aus Folgen von 
Nullen und Einsen. 

Um aber diese Maschinen- 
sprache zu sprechen und in hex 
oder sogar binär zu program- 
mieren, kommen Sie nicht um- 
hin, die AÄssemblerbefehle zu 
lernen — oder wollen Sie wirk- 
lich auswendig wissen, daß 
»11001101« ein Vergleichsbefehl 
ist? Na sehen Sie. Und um As- 
sembler (Maschinensprache) zu 
lernen, dafür gibt es genügend 
Trainingsbücher (und auch un- 
seren 64’er-Assemblerkurs). 


Wieviel Strom 
braucht der C 64? 


Welche Stromkosten verur- 
sacht ein einen Monat lang un- 
unterbrochen laufender C 64? 
Bitte in DM und als Vergleich 
(zum Beispiel »soviel wie eine 
100-Watt-Glühbirne«). 

Gegenfrage: Haben Sie Ihren 
C 64 etwa einen Monat lang un- 
unterbrochen laufen lassen? 
Und wenn ja, haben Sie etwa ne- 
bendran zum Vergleich eine 
100-Watt-Glühbirne brennen las- 
sen? 

Also: Der C 64 hat genau 15 
Watt Leistungsaufnahme (steht 
jedenfalls auf dem Computer). 
Die elektrische Arbeit in kWh 
Kilowattstunden bemißt sich aus 
Leistung mal Zeit. Wenn Sie das 
Floppy-Laufwerk auch noch mit 
einbeziehen (50 W), haben Sie 
einen Verbrauch von 46,8 kWh 
im Monat. Das einzige, was Sie 
noch tun müssen, ist, Ihr Elektri- 
zitätswerk nach dem Preis einer 
kWh zu fragen. Rechnet man 
grob etwa 20 Pfennige pro kWh, 
dann kostet der Dauerbetrieb 
von Computer und Floppy noch 
keine 10 Mark im Monat. Aller- 
dings ist darin noch nicht der 
Stromverbrauch des ja wohl in 
den meisten Fällen ebenfalls 
eingeschalteten Monitors oder 
Fernsehgerätes berücksichtigt. 
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Leser fragen — 
Willi Brechtl antwortet 


Mein Name ist Willi Brechtl. Nachdem 
mein Cousin, das Fehlerteufelchen, hier 
soviel Unheil angerichtet hat, habe ich 
mir gedacht, daß ich etwas Gutes tun 
kann — sozusagen als Ausgleich. 


Ich werde mich daher um 
Leserbriefe kümmern, die 
nicht in das sachliche Einerlei 
des Leserforums passen. Zum 
Beispiel Fragen, die sich aus 
dem einen oder anderen 
Grund nur ganz subjektiv be- 
antworten lassen. Oft genug 
tauchen auch Probleme auf, 
die sich nicht mit einem kur- 
zen AÄntwortsatz abhandeln 
lassen. Und wenn selbst eine 
längere Antwort im Rahmen 
des Leserforums nicht mehr 
ausreichen würde, dann ist 
das ganz klar ein Fall für Willi 
Brechti. 

Natürlich habe ich mir zur 
Beantwortung das erste Mal 


Ungeöffnete Disketten 
anwenden? 


Die Disketten, die ich besitze, 
kann ich nicht anwenden, weil 
sienicht geOPENt sind, deshalb 
bitte ich um Vorschläge, wie 
man auf Disketten eine sinnvol- 
le Datei eröffnet. 

Ohne Ihnen zu nahe treten zu 
wollen schlage ich vor, daß Sie 
sich das Floppy-Handbuch mal 
durchlesen (so schlecht ist es ja 
nun auch wieder nicht!). Dort fin 
den Sie den deutlichen Hinweis, 
daß man die Diskette vorher 
FORMATIEREN muß, um sie be- 
nutzen zu können. Und ob die 
Datei sinnvoll ist, das hängt von 
Ihnen und nicht vom Datenträ- 
ger ab. 


Lötkolben als Interface? 


Wie kann ich mittels Lötkol- 
ben eine elektrische Schreib- 
maschine am C 64 betreiben? 
Könnte man die Treibersoftwa- 
re dazu auf ein EPROM bren- 
nen? 

Natürlich kann man jede Soft- 
ware auch auf Eprom brennen 
(wer sollte einen daran hin- 
dern?). Allerdings müssen Sie 
sich dann selbst eine entspre- 
chende Platine zum Einstecken 
in den Steckmodul-Port basteln. 

Das Betreiben einer elektri- 
schen Schreibmaschine wird 
aber mit einem Lötkolben allei- 


auch gleich entsprechende 
Fragen herausgesucht. Mögli- 
cherweise sind einige Fragen 
darunter, über die viele Profis 
schmunzeln können, aber 
meine Beantwortung ist — so 
hoffe ich — immer fair genug. 

Kleine Bösartigkeiten mö- 
gen mir dabei verziehen wer- 
den (ich kann meine Ver- 
wandtschaft zum Fehlerteufel- 
chen eben doch nicht leug- 
nen). 

Also: Wenn Sie als Anfänger 
Probleme mit Computer, Soft- 
ware oder Handbuch haben, 
dann wenden Sie sich in Zu- 
kunft doch vertrauensvoll an 
mich. 


ne nicht funktionieren. Vielmehr 
steuert man solche Dinge mit ei- 
nem INTERFACE an. 

Wenn Sie sich allerdings 
selbst ein Interface bauen wol- 
len, kann ich Ihnen leider auch 
nicht weiterhelfen. Denn dabei 
kommt es ganz auf Ihre Schreib- 
maschine an, beziehungsweise 
auf deren internen Aufbau: 


Spektakuläre Verbindung 


Wie kann ich einen ZX 81 und 
einen C 64 miteinander verbin- 
den, und welchen Vorteil habe 
ich davon? 

Nun, das mit dem Vorteil 
kommt ganz darauf an, aus wel- 
cher Sicht Sie das Problem se- 
hen. Versetzen Sie sich einmal in 
die Lage desZX 81. Dannhaben 
Sie natürlich gewaltige Vorteile 
davon, weil Sie durch den ÄAn- 
schluß an den C 64 zum Super- 
mann geworden sind. Aber den- 
ken Sie doch mal an den C 64! 
Was soll der mit einer als Com- 
puter getarnten Plastikkarte 
schon anfangen? 

Nun aber mal ernst: Verbin- 
den kann man beide Geräte 
durchaus. Aber Vorteile fallen 
mir dazu keine ein. Die Haupt- 
speicherkapazität des ZX 81 be- 
trägt exakt 1024 Byte, wovon 
noch der Bildschirmspeicher 
abgeht. Bevor ich also Daten 
vomZX8landenC 64 sende, tip- 
pe ich sie lieber gleich am 
C 64 ein, das geht schneller. 


Stiftung Warentest zum 
Thema Heimcomputer 


Antwort eines Lesers auf den Test der 
Heimcomputer in der Oktoberausgabe von 
Stiftung Warentest. 

Bemerkenswert schlecht ka- 
men/kommen die Heimcompu- 
terim Bericht und Test, Ausgabe 
10/84 weg. 

Aber die Heimcomputer ha- 
ben es nicht verdient, denn die 
Redaktion von »Test«gingmitder 
falschen Fragestellung an diese 
Geräte heran. Es handelt sich 
nicht um Waschmaschinen oder 
Toaströster und auch nicht — 
trotz magnetischer Aufzeich- 
nung und digitaler Technik — 
um Videorecorder oder CD- 
Plattenspieler. Beim Angeln 
oder Drachenfliegen fragt man 
so wenig nach der Nutzanwen- 
dung wie beim Kakteenzüchten 
oder Briefmarkensammeln. 

Die schlechte Meinung über 
praktisch alle Geräte kann man 
gleichwohl weitgehend teilen — 
bis auf den Commodore 64. 

Es wurde nach konkreter 
Nutzanwendung gefragt? Bitte: 
Beispiel 1: Ich nutze meinen 
Commodore 64 unter anderem 
als recht komfortables Textver- 
und bearbeitungssystem privat 
und semiprofessionell. So ent- 
stehen private Briefe ebenso, 
wie Artikel für Fachzeitschriften 
mit Bildschirm- und Computer- 
hilfe. Die Investition (Computer, 
Floppy-Laufwerk, Farbmonitor, 
Textsystem, Schreibmaschine 
mit Interface) von etwa 3500 
Markhatsichsodurch Honorare 
schon fast bezahlt gemacht. 

Beispiel 2: Mein Sohn begann 
in Englisch bei den wöchentli- 
chen Vokabelarbeiten abzurut- 
schen: erst eine 3, dann 4, dann 
5. Jetzt wurde der 64er miteinem 
Vokabel-Lern- und Übungspro- 
gramm gefüttert und fleißig ge- 
übt. Das Ergebnis: nach der 5 
kam eine 1! Gewiß, auch durch 
konventionelles Pauken hätte 
sich so was sicher erreichen las- 
sen, aber mit weniger Spaß und 
mit sehr viel mehr Einsatz der 
beiden berufstätigen Eltern. 

Und noch ein positiver Aspekt 
für einen Heimcomputer, wenn 
man Kinder hat: die wachsen mit 
einem Instrument wie selbstver- 
ständlich heran, das in vielfälti- 
gen Formen und Aufgabenstel- 
lung ihren künftigen beruflichen 
Alltag bestimmen wird. Wenn 
wir Erwachsenen an die zahllo- 
sen Probleme denken, denen 
wir im Beruf bei der Einführung 
der EDV anunseren Arbeitsplät- 
zen ausgeliefert sind, so kann 
man die Jugend zumindest in 
diesem Punkt beneiden, weilsie 
ohne Hemmungen an diese 
neue Alltagstechnik herangeht. 

Und ein letzter Punkt: Heim- 
computerei ist etwas für kommu- 
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nikationsfreudige Menschen. 
Das scheint zunächst wider- 
sprüchlich zu sein, wenn man 
die emsig, aber einsam vorihren 
Bildschirmen Tippenden sieht. 
Nach meinen Erfahrungen fin- 
den sich aber bei der Compu- 
ter-Gemeinde auffällig viel Leu- 
te mit Btx-Vergangenheit oder 
mit CB-Funk-Erfahrung. CB- 
Funk ist fast tot, Btx auch, es hat 
nurnoch keiner gemerkt— auch 
die Btx-eifrige Stiftung Waren- 
test nicht. Es sollten im Herbst 
150000 Btx’er sein: tatsächlich 
sind es erst 14000. Der größte 
Teil davon dürften Änbieter sein 
oder Ex-Feldversuchsteilneh- 
mer, die mitdem Post-Lockange- 
bot (1000 Mark) umstiegen — so 
wie ich. 

Aber es gibt Hunderttausen- 
de von Heimcomputern, die 
leicht miteinander kommunizie- 
ren könnten — und viele tun es 
auch schon. Da gibt es Mailbo- 
xen, schwarze Bretter und viele 
interessante Informationen. 
»Schau’'n Sie doch mal rein«, 
aber nicht Btx ist gemeint. 

Ich glaube, daß sich Btx zum 
größten Kommunikations-Flop 
entwickelt. Aber das macht 
nichts, das merkt ja keiner, weil 
man das aus den horrenden Ge- 
winnen des größten deutschen 
Monopolisten finanziert. Wir al- 
le zahlen die Rechnung. Und da- 
mit klebe ich eine halbe Mark 
auf den Umschlag dieses Brie- 
fes, der natürlich auch am 
Monitor-Bildschirm meines 
Commodore 64 entstand. 

(Klaus-Dieter Wüstermann) 


Eine Bitte an alle 
Mailbox-Benutzer 


Nachdem wir nun TECOS fast 
7 Monate betreiben, hat uns Ihr 
Vergleich in der Ausgabe 12/84 
mit dem CB-Funk gefallen, es 
deckt sich mit unseren Erfahrun- 
gen! Allerdings vor allem im Ne- 
gativen: Unter dem Mantel der 
Anonymität werden Obszönitä- 
ten, Beleidigungen und 
Schwachsinn eingegeben. 

Aus diesen Gründen ist TE 
COS sehr restriktiv geworden. 
In der Blockzeit zwischen Pro- 
grammstart (meist 20h) und Mit- 
ternacht kann TECOS nur von 
PTC-Mitgliedern und eingetra- 
genen Benutzern benutzt wer- 
den, Gäste erhalten einen ent- 
sprechenden Hinweis. Die Be- 
nutzerzeit für Gäste ist sehr ge- 
ring (lO Minuten) und die Aus- 
wahl ebenfalls (nur 4 von 8 Punk- 
ten im Hauptmenü). Aber mit all 
diesen Sachen kann man als Box 
leben, wenn das Programm ent- 
sprechend reagiert und die Ein- 
gaben erst einmal »zensiert« 
(besser ausgedrückt: »gesich- 
tet«) werden. 

Aber ein viel größeres Pıo- 
blem sind nach unserer Ansicht 
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die vielen »Hacker-Lehrlinge«, 
die sich einfach nicht an gewisse 
Betriebszeiten halten können 
und manchmal eine elende Pla- 
ge sind. Vor allem, wenn sich au- 
ßerhalb der Betriebszeiten eın- 
mal der SysOp (oder sonst je- 
mand) via Voice«, also per Spra- 
che meldet. Wir haben seit eini- 
ger Zeit einen kleinen Artikel 
darüber mit folgendem Wortlaut 
in unserer Box stehen: 


Wie können Hacker Geld sparen? 


Lassen Sie uns mit einem Tat- 
sachenbericht beginnen: 

Wir als PTC sind jeden Abend 
zwischen l7und 20 Uhr via Voice 
für unsere Mitglieder erreich- 
bar. In dieser Zeit erhalten wir 
zirka dreißig Anrufe, die wir in 
drei Kategorien unterteilen: 

A) Der verschämte Aufleger 
Nach unserer Begrüßung via 
Voice: »PTC — TECOS, guten 
Abend«knacktesinder Leitung 
— aufgelegt. Zirka 20 Sekunden 
später das gleiche Spiel. 

Warum fragt der gute Mann 
nicht einfach, ob da eine Box 
dran ist? Entweder hat er eine 
falsche Nummer, dann kann er 
das Spielchen morgen, über- 
morgen und so weiter wiederho- 
len. Oder es handelt sich um ei- 
ne Box, die nur zeitweise sendet, 
dannkannersich die Änrufe vor 
20h sparen! 

B) Der superschnelle Carrier- 
Sender 

Nach dem Aufnehmen desHö- 
rersknallt unsschonder Carrier 
entgegen und verstummt, meist 
automatisch, nach 20 bis 30 Se- 
kunden. Alle Versuche, hier je- 
manden anzusprechen, sind 


witzlos. Deswegen legen wir bei 
Anrufen mit Carrier außerhalb 
der Sendezeit von TECOS sofort 
wieder auf. Zirka 20 Sekunden 
später erfolgt meist ein Änruf 
nach Typ A 
























































































































































































C) der unheimliche Entschuldi- 
ger 

Man nimmt den Hörer ab und 
bevor man noch ein Wort her- 
ausgebracht hat, hört man: »Ent- 
schuldigung, falsch verbun- 
den«. Manchmal klappt esnoch, 
dem Änrufer ein »Mailbox erst 
nach 20 Uhr« entgegenzuschleu- 
dern, falls er dann noch nicht 
aufgelegt hat, hört man ein »Äch 
so, wußte ich nicht« und dann 
erst »CRCK« 

Falls das mit dem Entgegen- 
schleudern nicht klappt, meist 
nach 20 Sekunden ein Anruf, 
Typ Al 

Nun, nicht nur, daß derartige 
Anrufe derart geballt den 
freundlichsten SysOp verär- 
gern, Sie schmeißen doch auch 
dem GILB das Geld in den Ra- 
chenundsind— wennSiesichso 
blöd verhalten — mit Ihrer Mail- 
boxliste nie UP TO DATE! 

Denn wenn es heute nicht 
klappt, versuchen Sie es doch 
morgen oder übermorgen wie- 
der und schenken dem GILB 
wieder ein, zwei Einheiten! 

Ist denn das so schwer, erst 
einmal kurz in jede Verbindung 
reinzuhören und wenn sich je- 
mand mitStimme meldet, einmal 
nachzufragen? Oder sind die 
Leute (Typ A-C) schon zu blöde 
zum Sprechen? Könnt Ihr denn 
nur noch Tasten kloppen? Also, 
versucht's mal auf die andere 
Art! Zufriedene Mienen danken 
es Ihnen! 

(Dietmar Severitt, SysOp 
TECOS, PTC) 


Simons Basic und Turbo- 
tape 


Kann man Turbotabe und Si- 
mons Basic zusammen benut- 
zen? 


Ausgabe: 8/84 


Ausgabe: 12/84 Rudolf Lehr 


Es gibt jetzt eine Version von 
Simons Basic, bei der Turbotape 
integriert ist. Außerdem sind in 
dieser Version ein Monitor und 
ein Disassembler in Simons Ba- 
sic enthalten. 


Wer kann mir Telefonnum- 
mern nennen, unter denen ein 
C 64 eine Mailbox bedient? 
Ausgabe 12/84 

Stephan Prinz 


Die FIB (069-726527) wendet 
den C 64 als Infobox an. Ab Ja- 
nuar 1985 ebenso der User-Club 
Asperg + Tamm + Rest der 
Welt. Um eine Mailbox mit dem 
C 64 zu betreiben, braucht man 
auf jeden Fallein größeres Lauf- 
werk, zum Beispiel eine 8250 von 
Commodore, da sonst mit der 
1541 nur zirka 40 Mailboxbenut- 
zer mit Passwort und Mails (sen- 
den/empfangen) verwaltet wer 
den können 

Steffen Gebauer, Äsperg 


Wo gibt's Lightpens? 


Können Sie mir die Adresse ei- 
ner Firma mitteilen, wo ich ein 
Lightpen plus Software (an- 
schlußfertig an den C 64) fürzzir- 
ka 50 Mark bekommen kann? 

Markus Lucassen, Duisburg 


List und Löschschutz 


Ausgabe 12/84, Seite 85 

Den im Artikel beschriebenen 
Listschutz kann man folgender- 
maßen leicht knacken: 
POKE2052,0:POKE2078,0 

Jetzt kann man das Programm 
schon listen. Nun noch 0 (Return) 
und | (Return) eingeben, um die 
ersten beiden Zeilen zu löschen 
und das Programm ist wieder 
vollkommen ok. 

Ulrich Förster, Bückeburg 
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neuen Plus/4 von Commodore 

betrachten. Auf der einen Seite 
steht die Hardware und das Basic, 
auf der anderen die eingebaute 
Software. 

Ein großes Plus verdienen die 
Hardware und das Basic des Plus/4. 
Dem Benutzer steht, wie bei dem 
C 16, mit der Version 3.5 ein sehr gu- 
tes Basic zur Verfügung. Da in dem 
C 16-Testbericht (Ausgabe 1/85) 
schon ausführlich auf diese neue 
Basic-Version eingegangen wurde, 
soll hier nurnoch einmal aufspeziel- 
le Eigenschaften hingewiesen wer- 
den. 


Basic 3.5 — Das beste 
Commodore-Basic 


Mit derBasic Version3.5stehtdem 
Programmierer ein gutes Werk- 
zeug, und mit 60 KByte freiem RAM 
auch genügend »Spielraum«zur Ver- 
fügung. Befehle, mit denen man DO 
WHILE- und DO UNTIL-Schleifen 
aufbauen kann, unterstützen das 
strukturierte Programmieren. Das 
umständliche »herumPOKEn« für 
Grafik- und Tonerzeugung ist durch 
eine Reihe von leistungsfähigen Be- 

| fehlen ersetzt worden. Einfache 
| Grafiken können so mit wenigen Be- 
| fehlen schon nach kurzer Einarbei- 
tungszeit mit dem Plus/4 erstellt 
| werden. Mit dem folgenden kleinen 
Programm kann man sehr einfach 
| eine interessante Grafik erzeugen 


10 COLOR 0,1 
| 20 COLOR 1,2 
30 GRAPHICI] I 
| 40 A = RND()*20+10 
| SOFOR L=0 TO 359STEP A 
60 CIRCLE 1,160,100,80,40, ,L 
| 7ZONEXTL 


Sprites sind beim Plus/4 nicht zu 

| finden. Dafür gibt es aber die »SHA- 

PEs«. Mit den Befehlen SSHAPE und 

| GSHAPE werden Ausschnitte aus 

| dem Grafikbildschirm (Mehrfar- 

| ben- oder Hires-Modus) als Basic- 

| Stringvariable gespeichert bezie- 
| hungsweise geladen. 

Die Fehlersuche erleichtern zwei 
Funktionen. Zum einen ist die vierte 
Funktionstaste mit einem HELP- 
Statement belegt. Tritt im Programm 

| einFehler auf, und drückt man diese 
| Taste, erscheint die fehlerhafte Zeile 
auf dem Bildschirm und blinkt ab 
dem Befehl, beidem der Fehler auf- 
trat. Zum anderen stehen die Befeh- 
le TRON und TROFF zur Verfügung. 
| Fügt man in ein Programm den Be- 


V: zwei Seiten sollte man den 


ne 


LIIIER 


EP =F 66 
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PLUS UND MINt 


Computer mit integrierter Software heißt das neue Konzep 
Computer mit diesem Konzept. Der Weg, den Commodo 
diesen Computer jedoch ein Preis von 1298 Mark gerec| 


fehl TRON ein, so protokolliert der 
Plus/4 ab dieser Stelle den Ablauf 
eines Programmes. Jede AÄnwei- 
sung wird ausgeführt und die Zei- 
lennummer, in der die Anweisung 
steht, auf dem Bildschirm ausgege- 
ben. Der Befehl TROFF hebt diesen 
Status wieder auf. 

Innerhalb eines Programmes läßt 
sich gezielt auf Fehlersituationen mit 
dem Befehl TRAP reagieren. Die 
Befehlssyntax lautet »TRAP (Zeilen- 
nummer)«. Trittim Programmlaufein 
Fehler auf, wird in die bei dem 
TRAP-Befehl angeführte Zeilennum- 


mer verzweigt. nder Variablen»EL« 
ist die Zeilennummer der Zeile ab- 
gelegt, In der der Fehler auftrat. In 
der Variablen »ER« ist die Fehler- 
nummer gespeichert. Mit der 
String-Funktion »ERR$(ER)« läßt sich 
die Fehlermeldung auslesen und in 
der TRAP-Programmroutine verar- 
beiten. So kann man gezielt Fehler 
abfragen und auf sie reagieren, oh- 
ne einen Programmabsturz hervor- 
zurufen. Ausgenommen sind hier- 
von nur der UNDEF'D STATEMENT 
ERROR und Fehler in der TRAP- 
Routine selbst. Mit der Änweisung 
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on Commodore. Der Plus/4 ist der erste Commodore- 
it dem Plus/4 beschreitet, hat sicher Zukunft. Ob für 
rtigt ist, muß sich erst noch erweisen. 


»RESUME« kann der Programmlauf 
wieder aufgenommen werden. 


Das Bild im Bild 


Mit dem Plus/4 ist es möglich, Tei- 
le des Gesamtbildschirms als »WIN- 
DOW« zu definieren. Ein »WINDOW« 
ist ein Ausschnitt des Bildschirmes, 
in dem von der Programmeingabe 
bis zur PRINT- oder Zeichenanwei- 
sung alles ablaufen kann, ohne den 
Bildschirminhalt außerhalb des 
»WINDOWS« zu beeinflussen. 


Die Window-Technik des Plus/ 
ist, verglichen mit der des Schnei- 
der CPC 64 etwas enttäuschend. So 
sind Windows nicht über direkte 
Anweisungen, sondern nurüber die 
ESC-Funktionen zu erreichen. Wei- 
terhin können nicht mehrere Win- 
dows gleichzeitig auf dem Bild- 
schirm dargestellt werden. 


Der Monitor 


Für die Maschinensprachefreun- 
dehat.der Plus/4 einen besonderen 
Leckerbissen bereit. Er 


vertiico 
v eriugt 


über einen Maschinensprache- 
Monitor mit dem Namen TEDMON. 
TEDMON istallerdingsnichtnur ein 
Monitor, sondern in ihm ist auch 
noch ein Disassembler und ein As- 
sembler enthalten. Die Erstellung 
von Maschinenprogrammen Ist mit 
dem TEDMON sehr komfortabel. 
Der Befehlssatz ist mit dem Monitor 
des C 16 identisch und wurdein der 
Ausgabe ] bereits veröffentlicht. 

Doch nun zu dem, was den Plus/4 
am stärksten von anderen Compu- 
tern abhebt. 


Das neue Konzept 


Der Plus/4 verfügt über eine ein- 
gebaute Textverarbeitung, eine Ta- 
bellenkalkulation, eine Dateiver- 
waltung und eine »grafische« Aus- 
wertung. Diese vier Programme ha- 
ben dem neuen Computer seinen 
Namen gegeben. Faßt man das Plus 
im Namen als KRamorrnen auf, 
so kann man dem zustimmen. Alle 
vier Programme sind vorhanden. 
Als Wertung sollte man dieses Plus 
allerdings nicht sehen. 

Alle vier Programme sind in ei- 

nem 32 KByte-ROM untergebracht. 
Die Textverarbeitung kann mit den 
anderen drei Programmen Daten 
austauschen. 

In die eingebaute Software ge- 
lanagt man über die Fl-Taste. Diese 
bringt einen SYS1525-Aufruf auf den 
Bildschir den man nur mit RE- 
TURN zu aan braucht, um in 
die Textverarbeitung zu gelangen 
(Bild l). Die anderen drei Program- 
ekannmannur vonhier anwählen. 
Al ı man das eingebaute Software- 

wieder verlassen, muß man 
eben dem Netzschalter ange- 

ch ıten Reset-Knopf betätigen. Ein 
zum Verlassen der Software 
ht vorgesehen. 


Plus 1 — Die Text- 
verarbeitung 


Ein mit ge eingebauten Textver- 

} ıstellter Text kann bis zu 
ilen mit 77 Zeichen pro Zeile 

ılten. Auf dem Bildschirm wer- 

Gen allerdings nur jeweils 22 Zeilen 

und 37 Spalten angezeigt. Schreibt 

man über die 37 Spalten hinaus, so 

scrollt der Bildschirminhalt nach 

links weg. Will man sich einen ein- 

getippten Absatz noch einmal 

durchlesen, muß man mühsam hin 

und her springen. Die »Hilfe«, die 

das Programm hierzu bietet, kann 
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noch zu realisieren. Betrachtet man 
die wirklich hervorragenden Gra- 
fikfähigkeiten des Plus/4 und sieht 
dann, was das Grafik-Programm aus 
den Zahlenkolonnen der Tabellen- 
kalkulation macht, fühlt man sich auf 
den Arm genommen. Balken- und 
Liniengrafiken werden aus einzel- 
nen »#« (Nummer-Zeichen) zusam- 
mengesetzt. Für die Ausgabe aufei- 
nem Drucker kann dies sinnvoll 
sein, da so die Grafiken auch mit ei- 
ner Typenradschreibmaschine aus- 
gegeben werden können. Doch zu- 
mindest für die Bildschirmausgabe 
hätte die Grafik mit den ganz norma- 


So können Daten, die in Schrift- 
stücken erforderlich sind, zum Bei- 
spiel in Geschäftsberichte übertra- 
gen werden. 


Software: 
nur im Konzept gut 


Benötigt man den gesamten Da- 
tenbestand einer Tabellenkalkula- 
tion für ein Dokument, läßt sich dies 
mit einem Kopierbefehl realisieren. 
Auch die grafische Auswertung 
wird auf diese Weise kopiert 
(Balken- oder Liniengrafik). 


Bild 7. Der SID und der VIC, sowie Teile der VIA sind nun im TED integriert. Der 7501-Mikroprozessor 
ist kompatibel zu 6502/6510. Alle Anschlüsse und strahlungsintensiven Teile sind abgeschirmt. 


len Basic V3.5-Befehlen leicht auf- 
bereitet werden können. 


Einige besondere Aspekte der 
Plus/4-Software, die man nicht ver- 
nachlässigen sollte sind bisher 
noch nicht erwähnt worden. 

sehr positiv ist zu bewerten, daß 
die Textverarbeitung mit der Tabel- 
lenkalkulation, der Dateiverwaltung 
und der grafischen Darstellung zu- 
sammenarbeitet, was bedeutet, daß 
Daten von einem Programm in das 
andere übertragen werden können. 
Hierzu gibt es mehrere Alternati- 
ven. 

Über das eingebaute Windowing, 
mit dem man Teile des Bildschirms 
nutzen kann, ohne den anderen 
Bildschirmteil zu beeinflussen, kann 
man Teile der Tabellenkalkulation 
in die Textverarbeitung einblenden. 


Serienbrieferstellung kann in Zu- 
sammenarbeit mit der Dateiverwal- 
tung realisiert werden. 

Inwieweit die positiven Elemente 
der Plus/4-Software die negativen 
Aspekte aufwiegen, muß jeder Än- 
wender für sich entscheiden. Die 
Idee der eingebauten Software ist 
sicherlich ein großer Schritt nach 
vome auf dem Homecomputer- 
Markt. In der Ausführung hätten 
sich die Programmierer aber etwas 
mehr Mühe geben können. 


Die Hardware überzeugt 


Die Hardware des Plus/4 kann da- 
gegen aufganzer Linie überzeugen. 
Sehr gutes Basic 3.5 und 60 KByte 
freier Speicherplatz machen das 
Programmieren zum Vergnügen. 
Weiterhin stehen neben der guten 
Tastatur vier neben der SPACE- 
Taste angeordnete Cursor-Tasten 


und acht mit den gängigsten Befeh- 
len belegte Funktionstasten zur Ver- 
fügung. Eine Version mit DIN- 
Tastatur wird zu einem Aufpreis von 
100 Mark erhältlich sein. Neben 
dem Netzschalter ist ein Reset- 
Schalter angebracht (Bild 4), den 
man ja auch zum Abschalten der 
eingebauten Software braucht. 

Ein Wermutstropfen sind die neu- 
en Joystic- und Datasette- 
Anschlüsse (Bild 5). Sie sind nicht 
kompatibel zu denen des VC 20 und 
C 64. Umsteiger, die von diesen 
Computern kommen, müssen sich 
dieses Zubehör neu anschaffen. Im 
Gegensatz zum User-Port hat sich 
ebenfalls der Expansion-Port verän- 
dert. Also können auch Erweite- 
rungs-Module und -Karten, die auf 
diesen Port ausgelegt sind, nicht 
mehr verwendet werden. Der HF- 
Ausgang wurde beim Plus/4 an die 
Seite verlegt (Bild 6). 

Im Vergleich zum C 64 hat sich 
auch auf der Platine einiges geän- 
dert. So wurden der SID und der 
VIG, sowie Teile der VIA im TED in- 
tegriert. Der neue 7501-Mikropro- 
zessor ist kompatibel zu den bisher 
verwendeten 6502/6510 (Bild 7). 

Schade, daß der Plus/4 nicht ohne 
eingebaute Software zu einem Preis 
zwischen 700 und 800 Mark zu ha- 
ben ist, denn er bietet erheblich 
mehr als manch anderer Computer 
dieser Preisklasse. (rg) 


Auf einen Blick 


CPU: 7501-Mikroprozessor/1.76 
MHz kompatibel zu 6502/6510 
RAM: 64 KByte 

ROM: 32 KByte inklusive Be- 
triebssystem und Basic V3.5 + 
32 KByte für die eingebaute Text- 
verarbeitung, Tabellenkalkula- 
tion, Dateiverwaltung und grafi- 
sche Auswertung 

Maße: Breite 305 mm, Tiefe 203 
mm, Höhe 63 mm 
Bildschirmdarstellung: 16 Farben 
(mit jeweils sieben Intensitätsab- 
stufungen), 40 Zeichen in 25 Zei- 
len, Hires-Auflösung 320 mal 200 
Punkte,  Multi-Color-Auflösung 
160 mal 200 Punkte 

Preis: DIN-Tastatur (1398 Mark) 
und ASCII-Tastatur (1 298 Mark) 
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Die Stimme des Meisters So | 


Welch ungläubiges Staunen erweckte doch die erste Phonografen- 
trommel seinerzeit. Kaum anders geht es dem Gomputerbesitzer 
heute, wenn er die eigene Stimme aus dem C 64 hört. 





re 64 ist schon beinahe sprich- 

wörtlich. Der Covox Voice-Ma- 
ster (siehe Bild) baut auf dieser Fle- 
xibilität auf. Erist daserste Zusatzge- 
rät für den C 64, mit dem es gelingt, 
die eigene Sprache elektronisch zu 
speichern und wieder abzurufen. 

Im Speicher des Commodore 
werden die mit einem Mikrofon auf 
herkömmlichem Weg aufgenomme- 
nen Toninformationen als digitale 
Werte abgelegt. Ebenso wie alle 
Basic- oder Maschinenprogramme 
sind die Tondaten für das mitgelie- 
ferte Steuerprogramm jederzeitund 
vor allem sehr schnell verfügbar. 
Damit die aufgenommenen Tonim- 
pulse aber auch wiedergegeben 
werden, bedient sich das Steuer- 
programm des SIDs. 

Töne mal ganz anders 

Dieser produziert dann nicht, wie 
so oft, Musik oder die Geräuschku- 
lisse für Spiele, sondern die Origi- 
nalstimme des Benutzers. Ein ver- 
blüffender Effekt. Bisher bekannte 
Programme, wie etwa der SAM, 
mußten oft umständlich program- 
miert werden. Mit Voice-Master 
merkt sich der Commodore einfach 
die in ein Mikrofon gesprochenen 
Worte. 

Auf diese Weise finden bis zu 64 
einzelne Worte auf einmal im Spei- 
cher Platz. Da die Speicherung sol- 
cher Daten recht aufwendig und 
platzraubend ist, sind volle 64 Worte 
nur bei sehr kurzen Vokabeln mög- 
lich. Inder Regel stehen etwa 40 pro- 
grammierbare Worte zur Verfü- 
gung. Wer sich jetzt fragt, wieviel 
dannnoch für sein Programm übrig- 
bleibt, fragt richtig, denn umfangrei- 
che Basic-Programme sind nicht 
mehr möglich. Dies gilt für die erste 
Version des Voice-Masters. Die 
ebenfalls mitgelieferte zweite Ver- 
sion läßt den gesamten Basic-Spei- 
cher unangetastet, hat aber nur 
noch etwa acht KByte für Tondaten 
(was nicht viel ist). 

Einfachste Bedienung 

Wer glaubt, daß ein solches Pro- 
gramm schwierig zu handhaben ist, 
wird freudig überrascht sein. Die 
Worte werden in einer FOR-NEXT- 
Schleife mit dem Befehl LEARN A 


D ie Vielseitigkeit des Commodo- 
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eingegeben, die Variable A ist da- 
bei die Nummer des Wortes. Zur 
Wiedergabe der Wörter (über den 
normalen Fernsehlautsprecher) ge- 
nügt der Befehl SPEAK A. Ebenso 
simpel kann die Lautstärke (VOLU- 
MEB) oder die Sprechgeschwindig- 
keit (SPEED C) verändert werden. 
Wichtigstes Beeinflussungsmerk- 
mal für die Töne ist die Aufnahme- 
frequenz (RATE D), die zwischen 
5000 Baud und 12000 Baud einstell- 
bar ist. Interessante und manchmal 
recht lustige Variationen der Worte 
sind das Resultat einer einfallsrei- 
chen Verkettung dieser Befehle. Mit 
etwas Geschick ist auch ein Echo- 
Effekt möglich. 

Auf der Suche nach dem Zweck 

Natürlich drängt sich bei einem 
solchen Zusatzgerät die Frage auf, 
wozu das Ganze eigentlich nützlich 
sein kann. Vordringlich fallen einem 
da Anwendungen wie die Sprach- 
unterstützung bei Spielen (Achtung! 
Feind von rechts!), oder die akusti- 
sche Unterstützung eines Auswahl- 
menüs ein. Daß auch wesentlich 
anspruchsvollere Anwendungen 
denkbar sind, zeigt das beigefügte 
Taschenrechnerprogramm, das je- 
de eingegebene Zahl oder Rechen- 
operation mit Worten bestätigt. Mit 
einer auch beim Commodore 64 
möglich erscheinenden Speicher- 
erweiterung von 256 KByte ist so ei- 
ne akustische Eingabekontrolle je- 
der gedrückten Taste denkbar. Für 
Blinde eröffnet sich so die weite 
Welt der Microcomputer. Aber 
auch für Sehende ist das Erlernen 
der Programmiersprache Basic mit 
akustischer Unterstützung sicher- 
lich einfacher. 

Besonders angenehm ist es, daß 
man die eingegebenen Worte auf 
Diskette abspeichern kann. Im Be- 
darfsfall steht jeder beliebige Wort- 
schatz innerhalb kürzester Zeit zur 
Verfügung. Zur Wiedergabe der 
Worte ist das Modul des Voice-Ma- 
sters überflüssig, nicht aber die Soft- 
ware. Dieses kurze Programm muß 
in jedem Fall geladen beziehungs- 
weise in ein Programm einbezogen 
werden. Programme mit eigener 
Sprachunterstützung stehen somit 
auch allen jenen zur Verfügung, die 







Die Hardware ist nur für 
die Aufnahme notwendig 


den Voice-Master nicht besitzen. 
Verändern können Sie den Wort- 
schatz allerdings nicht mehr. 
Sprachausgabe ohne Zusatz 

Die Charakteristik jeder Stimme 
oder eines bestimmten Geräusches 
bleibt erstaunlich naturgetreu erhal- 
ten. Leider entspricht das mitgelie- 
ferte Mikrofon nicht dem Stand der 
Technik. Ein Versuch hingegen, Mu- 
sik mit einem guten Mikrofon aufzu- 
nehmen, brachte ganz erstaunliche 
Ergebnisse. Der Commodore als 
Musikrecorder, ein mögliches, aber 
wohl etwas zu teures Verfahren. Für 
die reine Sprachein- und -ausgabe 
ist der Preis von 298 Mark gerade 
noch tragbar. 
Zukunftsmusik 

Wichtigste Erkenntnis ist aber die 
Enthüllung der ICs als Ton- 
Speichermedium der Zukunft. Voll- 
kommen naturgetreue und beliebig 
beeinflußbare Reproduktion von 
Daten, seien es nun Tondaten oder 
Videoinformationen, sind das Er- 
gebnis. Sollte sich die Preisentwick- 
lung und die Leistungsfähigkeit der 
Speicherchips mit der gleichen Ge- 
schwindigkeit wie bisher weiterent- 
wickeln, so wird es sicher bald Vi- 
deokassetten geben, die kein: 
Gramm Magnetband mehr enthal- 
ten. Der Voice-Master wird bis da- 
hin aber sicher schon ein Urahn die- 
ser Entwicklung sein. 

(Arnd Wängler/aa) 


zugsquelle: Microton, Computerprodukte, Bahnhofstr. 2, 
CH-2542 Pieterlen 
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icht wenige VC 20-Besitzer ha- 
N ben den Wunsch, ihre 16-KByte 
Erweiterung VIC 11ll von Com- 
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sehen, 


modore auch für den Autostartbe- 









reich $A000-$BFFF (40960-49152), könnten n die y 
gelegentlich Modulbereich ge- blocl Byte überallhin 
nannt, zu benutzen. an ler 5) hin zu le- 
Der Autostartbereich bietet be- gen ich macht ma 
kanntlich die Möglichkeit, unter ge- d its die Gefahr 
wissen Voraussetzungen sofort nach g und Zerstö- 
dem Einschalten an die Stelle d andererseits 
$A000/$A001 zu springen und von rschlossenen 
dort natürlich an jede gewünschte ZU- 
Stelle im Programm, wobeinoch! be- ein 
sonders bemerkenswert ist, daß die stal 


Auslösung eines CPU-Resets mittels 
nacht räglich eingebautem Taster, 
der beisp iels: weise Pin 6 mitPin2an 
der Buchse des seriellen Ausgangs 
verbindet (»not connected« für Pin 6 
in den diversen Bücher ist ge- 


schwindelt: 


Pin 6 liegt am System- 
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22333} 





Bild 1. 16-KByte-Erweiterung mit eingebautem Umschalter 


Reset) dieselbe Wirkung wie das 


Einschalten hat: Es sroistı, ein 
Sprung in die Reset-Rou ine 
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Restore Ta ste erfolgt ein Spru 
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Video/Audio-Kabel für den G 64 


ist auf Seite 142 die Belegung der 

Video/Audio-Buchse angegeben. 
Dieser Anschluß wird benötigt, 
wenn der C 64 nicht am Antennen- 
eingang, sondern am Videoeingang 
eines Fernsehgeräts oder Monitors 
betrieben wird. 
Neue Buchse beim C 64 

Beineueren Modellen des C 64 ist 
die im Handbuch beschriebene Vi- 
deo/Audio-Buchse durch eine ande- 
re ersetzt worden. Die Belegung der 
neuen Änschlußbuchse zeigt Bild 1. 
Die folgende Erläuterung der Signa- 
le gibt in knapper Form Aufschluß 
über deren Funktion. 


Die Bildsignale des C 64 


Das Luminanzsignal, auch BAS- 
Signal genannt, ist ein Intensitätssi- 
gnal. Es enthält die Helligkeitswerte 
zwischen Schwarz und Weiß und 
wird zur Ansteuerung eines mo- 
nochromen Monitors oder SW- 
Fernsehgerätes benutzt. 

Mit dem Chrominanzsignal (F- 
Signal) werden Farbinformationen 
übertragen. Das Chrominanz- und 
Luminanzsignal liefern zusammen 
die gesamte Farbbildinformation. 
Die getrennte Übertragung dieser 
Signale ist nicht allzu weit verbreitet. 
Nur wenige Monitore, wie der Com- 
modore-Monitor 1701 oder 1702, ha- 
ben getrennte Eingänge für Chromi- 
nanz und Luminanz. Getrennte Si- 
gnale führen zu einer schärferen 
Bildwiedergabe als das FBAS- 
Signal. 

Das VIDEO OUT-Signal ist kompa- 
tibelzum FBAS- oder PAL-Signal und 
setzt sich aus dem Luminanz- und 
Chrominanzsignal zusammen. Es 
enthält alle Informationen, die der 
Aufbau eines Farbbildes erfordert. 
Dieses Signal erlaubt es, einen 
Farbfernseher oder Monitor mit 
PAL-Videoeingang an den C 64 an- 
zuschließen, ohne den Umweg über 
den Äntennenanschluß zu nehmen. 
Die erforderliche Modulation/De- 
modulation führt dabei nämlich zu 
einem Qualitätsverlust. 

Die Beschaltung einer Video- 
buchse herkömmlicher Bauart 
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| m Bedienungshandbuch zum C 64 








C 64/VC 20 


Richtig verbunden — 
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VCR-Buchse 


Schaltspannung | (+ 12 V) 
Schaltspannung 2 (+ 1...3 V) 


VIDEO IN 





SCART-Buchse 


Bild 3. SCART-Buchse. Belegung der Pins, die zum Anschluß des C 64 benötigt werden 
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Sie müssen kein Elektronikprofi sein oder Elektrotechnik studiert haben, um einen 
Fernseher mit Videoeingang oder einen Monitor an den C 64 anzuschließen. 


Wenn Sie wissen, an welchem Ende ein Lötkolben heiß wird, dann dürfte diese 


Bauanleitung für Sie ein klarer Fall sein. 





Bild 4. Anschluß eines SW-Fernsehgerätes oder eines monochromen Monitors 


(VCR) können Sie Bild 2 entnehmen. 
Bild 3 zeigt die der neuen, genorm- 
ten SCART-Buchse. 

Über das AUDIO OUT-Signal wird 
der Ton des C 64 übertragen. Hat 
der Monitor kein Tonteil, hilft nur ei- 
ne Nachrüstung oder ein externer 
Verstärker. 

Der Vollständigkeit halber sollte 





der AUDIO IN-Eingang nicht uner- 
wähnt bleiben. Über diesen werden 
dem Soundchip SID 6581 des C 64 
externe Audiosignale zugeführt, die 
sich bei entsprechender Program- 
mierung be-und verarbeiten lassen. 
Da dieser Eingang ungepuffert ist 
(nur über einen Elko 104F/25V ent- 
koppelt) und direkt an das SID führt, 


Scart-Stecker 





Bild 6. Die SCART-Verbindung. Am User-Port, Pin 2, können 5V abgegriffen werden, um zwischen 
Computer und Tuner umschalten zu können. 
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ist höchste Vorsicht geboten. Das 
Handbuch sagt nichts über die zu- 
lässigen Grenzwerte aus. Vermut- 
lich ist der TTL-Pegel (+5V) das äu- 
ßerste Limit. 


Die Verbindung 


Um den Computer und den Moni- 
tor beziehungsweise das Fernseh- 
gerät miteinander zu verbinden, be- 
nötigt man ein Verbindungskabel, 
das leicht aus einem abgeschirmten 
zweiadrigen Kabel und den passen- 
den Steckern angefertigt wird. Die 
Teile gibt es im Elektronikfachhan- 
del. Bild 4 zeiat ein Kabel für die Ver- 
bindung C 64 — monochromer Mo- 
nitor/SW-Fernsehgerät. Die Bilder 5 
und 6zeigen den Änschluß an einen 
Farbmonitor/Farbfernsehgerät mit 
herkömmlicher VCR-Buchse und 
dem neuen SCART-Anschluß. 

Bei Fernsehgeräten muß zur Um- 
schaltung auf die VCR-Buchse Pin 1 
auf eine Schaltspannung von +12V 
gelegt werden. Dies läßt sich mit ei- 
nem Schalter über Pin l und 5 des 
VCR-Steckers realisieren. Wer auf 
den Schalter verzichten möchte, 1ö- 
tetzwischen die beiden Pins einfach 
eine Drahtbrücke. Soll der Fernse- 
her dann wieder »normales« Pro- 
gramm empfangen, muß der 
Stecker gezogen werden. 

Beim SCART-Stecker ist die Um- 
schaltung nicht ganz so einfach zu 
verwirklichen, da keine Schaltspan- 
nung zur Verfügung steht. Die benö- 
tigte Spannung von +1 bis 3V kann 
allerdings am C 64 abgegriffen wer- 
den: am Pin 2 des User-Ports liegt 
die Spannung +5V/100mA an. Beim 
VC 20 wird der Pin 1 der VIDEO/ 
AUDIO-Buchse genommen. Über 
einen Widerstand von 330 Ohm legt 
man die Spannung an Pin 16 des 
SCART-Steckers. Dies hat den Vor- 
teil, daß beim Einschalten des Com- 
puters eine automatische Umschal- 
tung des Fernsehgerätes von »Fern- 
seher« auf »Datensichtgerät« erfolgt. 
(Dipl.-Ing. R. Kurzhals/hm) 
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Die Datenfernübertragung mit dem Commodore 64 wird immer interessanter. Seit nun 
auch gute Akustikkoppler mit FTZ-Nummer zu günstigen Preisen erhäftich sind, 
gehört eine DFU- Pen eelr fast schon zur WIEDER eines Computers. 
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sistkaumeinhalbesJahrher, a 
E: C 64-Besitzer, ausgestatt 

mit einer RS232-Schnittstelle 
(noch vom VC 20), einem zusammen- 
gelöteten Akustikkoppler und ei- 
nem kleinen, unkomfortablen DFU- 
Programm noch als Exot unter den 
Benutzern der verschiedenen Mail- 
boxen galt. Damals war dies die 
Welt der Epsons, DECs und IBMs, 
heute ist das eher umgekehrt. Einen 
wesentlichen Beitrag zu dieser Ent- 
wicklung leisteten findige Program- 
mierer, die dem Anwender immer 
komfortablere DFU-Programme zur 
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Verfügung gestellt Kahn 


Gute Software ist wichtig 


Jede auch noch so teure Geräte- 
ausstattung bleibt ohne Wert, solan- 
ge nicht die entsprechende Softwa- 
re erhältlich ist. Mit Terminal 64 wird 
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Online 


Puffer edieren 


Puffer drucken 


Parameter ändern 


Diskettenoperationen 


Funktionstasten belegen 


Bild 1. Das Hauptmenü von Terminal 64 


nun ein Programm angeboten, das 
den Anspruch erhebt, komfortabel 
und leistungsfähig zu sein. Wir ha- 
ben es im Praxisbetrieb getestet. 
Angeschlossen waren neben der 
obligatorischen RS232-Schnittstelle 
und dem Verbindungskabel ein Mi- 
nimodem 3003. 

Nach dem Laden steht dem An- 
wender das erste der verschiede- 
nen Untermenüszur Verfügung (Bild 
]). Im Gegensatz zur sonst üblichen 
Praxis werden die Unterfunktionen 
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in den one Mean: An en 
Be Tminal 64 vonande- 
ren Computern per Telefonleitung 


Zeichen emı Soon ngen und speichern. 


Viele Zusatzinformationen 


Im Online-Modus ist die erste Zei- 
le als Statuszeile ausgelegt. Neben 
dem Schriftzug »Online« dient die 
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Statuszeile der Übermittlung diver- 
ser Informationen. Es handelt sich 


dabei um sogenannte »Statusflags«. 
ür alle, die ihre Telefonrechnung 

selber bezahlen müssen, ist die hier 
angezeigte Zeitinformation sicher- 
lich sehr ko ostensparend, denn beim 
Stöbern in Datenbanken ist Zeit nur 
ein sehr relativer Faktor. Das zweite 

Flag (snd) gibt Auskunft darüber, ob 
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stellen von natürlich nicht 
das einzige, was von einem guten 
Termin alprogramm yartet wer- 
den darf. Je mehr der Anwender in 
das seschehen, beziehungsweise 





auf den anderen Computer einw 
ken kann, desto größer ist der Nut- 
zen des Terminalprogramms. Bei 
Terminal 64 wird der empfangene 
Text sowohl auf deı m Bil ladschirm dar- 
gestellt, als auch in den Computer 
geladen. Dabei können Speicher- 
beginn und -ende entweder vom Be- 
nutzer selbst oder auch vom Host- 
rechner gesteuert werden. Beim be- 
nutzergesteuerten Speicher wird 
mit der Fl-Taste bestimmt, welche 
Textpassagen gespeichert werden 
sollen. Unwichtige Teile können auf 
diese Weise pe Ta astendruck aus- 


= 
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Puffer laden 
Puffer speichern 


listen 


Fileumwandiung (Basic «+ Text) 


File umbenennen 


löschen 


Formatieren 


Jalidieren 


Bild 2. Die Diskettenoperationen mit den Umwandlungsmöglichkeiten 


Commodore gerade aus sei- 
nem Puffer sendet. Nach dem Ab- 
schluß re ‚Sendev rorgangs kann 
am dritten Flag (end) erkannt wer- 

den, wa Fe Computer mit dem 
Senden fertig ist. Ebenso wird das 
vierte Fla (st 0) revers geschaltet, 
wenn empfangene Zeichen gespei- 
chertv erden Amrechten Rand der 
Statuszeile zeigt das fünfte Flag die 
verfügbare Restspeicher kapazität 
in Zeilen zu vierzig Zeichen an. Bei 
einer Gesamtspeicherkapazität von 
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werden, damit der Puf- 

nicht unnötig vollge- 
wird. Oftmals kann es 
aber auch vorteilhaft sein, wenn der 
sendende Computer Speicherbe- 
ginn und -ende steuern kann, zum 
Beispiel bei der Übertragung von 
Programmen. 

In diesem Fall ist der Job des Be- 
nutzers von Terminal 64 recht ein- 
fach, denn die entsprechenden 
Steuerzeichen werden vom Pro- 
gramm unterstützt und gegebenen- 


geblendet 
fers speicher 
schrieben 
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falls ausgeführt. Der umgekehrte 
Fall, in dem der Commodore zum 
sendenden Computer wird, ist na- 
türlich auch denkbar. Mit CTRL B 
beziehungsweise CTRL C wird nun 
der Speicherbeginn und das Spei- 
cherende des empfangenden Com- 
puters gesteuert. 

Das Senden von Zeichen kann mit 
Terminal 64 grundsätzlich auf drei 
verschiedenen Wegen realisiert 
werden. Zur Verfügung stehen ent- 
weder die Tastatur, die mit beliebi- 
gen Strings belegbaren Funktions- 
tasten oder der Pufferspeicher. Die 
erste und zweite Methode dienen in 
der Regel dem direkten Dialog mit 
anderen Computern, beidenensich 
Sender und Empfänger abwech- 
seln. Das Senden aus dem Puffer- 
speicher lohnt sich meist dann, 
wenn längere Texte, beispielsweise 
Listings, übertragen werden sollen. 
Dabei besteht beim Übertragen des 
Pufferspeichers die Wahlmöglich- 
keit zwischen zeilenweisem oder 
kontinuierlichem Senden. Auch die 
für manche Hostcomputer gelegent- 
lich notwendige Verzögerung der 
Datenübertragung, kann mit Termi- 
nal 64 in drei verschiedenen Stufen 
eingestellt werden. 

Eines der interessantesten Än- 
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Yerminal 64 beherrscht nicht nur alle 
teuersequenzen und 
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Bild 3. Der Editor des Pufferspeichers 


wendungsgebiete für den Modem- 
betrieb ist die Übertragung von Pro- 
grammfiles. Dies geht im Prinzip 
nicht viel anders vor sich, als die 
Übermittlung von Texten oder son- 
stigen Mitteilungen. Da im Modem- 
betrieb aber eine Übermittlung ge- 
mäß dem ASCII-Standard notwen- 
dig ist, muß der Programmcode vor 
dem Senden nein ASCII-File umge- 
wandelt werden. Das geschieht vor 
dem Laden von Terminal 64 am ein- 
fachsten mit dem LIST-Befehl: 1. Pro- 
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ondern auch den 
eichensatz (Kahl 


kettengperationen, wie 
peichern, L- 
birektorys stehen 


tverarbeitung 


gramm laden, dann im Direktmodus 
OPEN 2,82, "FILENAME, S, W": 
CMD2 : LIST: CLOSE2 eingeben. 
Dabei ist zu beachten, daß im Pro- 
gramm keine Commodore-spezifi- 
schen Steuerzeichen enthalten sein 
dürfen (durch CHRS$-Codes erset- 
zen). Ein so präpariertes Programm 
kann nun als sequentielles File von 
Terminal 64 in den Pufferspeicher 
geladen und dann gesendet wer- 
den. Für den Empfang von im Quell- 
code vorliegenden Programmen 
stellt Terminal 64 sogar eine eigene 
Umwandlungsroutine bereit. Fürein 
empfangenes und im Pufferspei- 
cher abgelegtes Programm wird im 
Untermenü Diskettenoperationen 
der Punkt Fileumwandlung ange- 
wählt. Nach dem Eingeben des File- 
namens wird dasttransformierte File 
als Basic-Programm auf Diskette ge- 
schrieben. Der Pufferspeicher 
kann, ebenfalls vom Diskettenmenü 
aus, aber auch ohne Umwandlung 
zur späteren Weiterverarbeitung 
abgespeichert werden (Bild 2). 

Mit allen seinen komfortablen Ein- 
gabefunktionen und seiner kom- 
pletten Ausstattung, sogar mit einem 
Standard ASCII- und einem deut- 
schen Zeichensatz, ist der Terminal 
64-Editor beinahe schon ein kleines 
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Flexibilität großgeschrieben 

Wichtigstes Kriterium eines Ter- 
minalprogramms ist natürlich seine 
Flexibilität. Wer nur deshalb, weil 
Einstellparameter fehlen, die Hälfte 
aller verfügbaren Datenbanken er- 
reicht, wird sicher bald enttäuscht 
sein. Terminal 64 ist in dieser Hin- 
sicht vorbildlich. Das umfangreiche 
Parametermenü (Bild 4) läßt fast kei- 
ne Wünsche offen. Baudraten von 
150 bis 2400, Anzahl der Datenbits, 
Stopp-Bits, Halbduplex/Vollduplex 
und vieles mehr, stehen zur Wahl. 
Besonders interessant sind natür- 
lich die beiden letzten Punkte, denn 
sie verwandeln den Commodore in 
einen Computer mit vollständiger 
DIN-Tastatur. Da Terminal 64 auch 
viele am Commodore anschließba- 
ren Drucker unterstützt, entfallen im 
Zusammenspiel mit einem Umlaut- 
fähigen Drucker unliebsame 
Falschzeichen auf dem Ausdruck. 
Äber auch der ASCII-Zeichensatz 
entspricht der Norm. Die dadurch 
erreichte Kompatibilität mitanderen 
Hostcomputern kann mit Recht als 
fast hundertprozentig bezeichnet 
werden. 

Datensicherheit, Leistungsfähig- 
keit und Komfort sind wohl die tref- 
fendsten Attribute für dieses Termi- 
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Bild 4. Alle Einstellparameter von Terminal 64 


Textverarbeitungsprogramm (Bild 
3). Da auch alle Funktionen zum 
Speichern und Laden von Texten 
vorhanden sind, lohnt es manchmal, 
bestimmte Texte, die später gesen- 
det werden sollen, gleich in den Puf- 
ferspeicher von Terminal 64 zu 
schreiben. Damit aber nicht genug, 
denn Terminal 64 kann alle sequen- 
tiellen Files lesen. Textverarbei- 
tungsprogramme können zur Erstel- 
lung eines Briefes herangezogen 
werden. 


nalprogramm. Bis auf die fehlende 
Darstellung von 80 Zeichen auf dem 
Bildschirm, kann Terminal 64 als 
Wegbereiter und neuer Standard 
für Terminalsoftware für den Com- 
modore 64 gelten. Durch den gro- 
ßen verbleibenden Pufferspeicher 
ist mit diesem Programm ein effi- 
zientes Arbeiten in der Datenfern- 
übertragung möglich. 

(Arnd Wängler/rg) 


Bezugsquelle: Electronic Universe, Hindenburgstr. 98, 2120 Lüneburg, 
Preis inklusive Schnittstelle 169 Mark. 
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danach bewertet werden, wie- 

viel Wissen, in bezug zum jewei- 
ligen Klassenlehrplan, vermittelt 
wird. Dabei spielt die Aufmachung 
eine große Rolle. Die Programme 
sollten auf psychologische und pä- 
dagogische Erkenntnisse und 
Grundsätze aufbauen: keine Bestra- 
fung bei falschen, aber ein Lob bei 
richtigen Lösungen. Ein falscher Ta- 
stendruck darfnicht zu irritierenden 
Fehlermeldungen oder Systemab- 
stürzen führen. 


Lernen mit Leopold 
Der Schulbuchverlag Wester- 


mann reiht sich mit sieben Program- 
men in die Avantgarde der Lermsoft- 


E: Mathematikprogramm sollte 
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Bild 2. So präsentiert Hagemann Rechenaufgaben. 
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ware ein. Wir haben zwei der drei 
von Westermann angebotenen Ma- 
thematikprogramme getestet: 
Bruchrechnung Teil l und 
Prozentrechung. 

Zu Beginn des »Unterrichts« wählt 
der Schüler die Art und Anzahl der 
Aufgaben. Sokannmanzum Beispiel 
bei Prozentrechnung zwischen dem 
Grund- oder Prozentwert und dem 
Prozentsatz entscheiden. Die Aufga- 
ben werden in zwei Schritten, wieim 
Schulheft, ausgerechnet. Im ersten 
Lösungsschritt wird das Lösungs- 
schema verlangt, im zweiten das Er- 
gebnis. Stimmt die Lösung, freut sich 
das Lektionsmaskottchen »Löwe 
Leopold« und zeigt kleine »Dressur- 
akte«. Ist das Ergebnis falsch, röhrt 
Leopold und fragt, ob man noch ei- 
nen Lösungsversuch unternehmen 


Nachhilfe 
aufi Knopfdruck 


Können in Zukunft Mathematiklernpro- 
gramme den bewährten Nachhilfelehrer 
ersetzen? Um diese Frage zu klären, 
testeten wir zwölf Programme von fünf 
Anbietern, die den Mathematikunter- 
richt in den unteren Klassen unter- 








stützen sollen. 


will. Wenn nicht, zeigt das Pro- 
grammdenLösungswegund dasEr- 
gebnis. Auf Wunsch kann man sich 
mit Fl das Lösungsschema anhand 
eines Beispiels ausführlich zeigen 
lassen. 

Die Mathematikprogramme von 
Westermann sind grafisch anspre- 
chend aufgebaut. Das Lob dürfte 
Kinder zum Rechnen weiterer AÄuf- 
gaben animieren. Bei falschen Lö- 
sungen wird der »Schüler« von sei- 
nem elektronischen Lehrer nicht mit 
frustrierenden Kommentaren oder 
Noten traktiert, die mehr zum Aus- 
schalten des Computers als zum 
Lernen anspornen. 

Für 69 Mark (nur auf Diskette) pro 
Lektion, bekommt man also Pro- 
gramme von Westermann, die zur 
Ubung von einfachen Rechenaufga- 





Bild 3. »Junior Mathemat« will erst den Namen des Schülers wissen. 
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ben geeignet sind, wobei der Kopf 
schon mal raucht, wenn alle Aufga- 
ben ohne Taschenrechnner erledigt 
werden. 


Ein anderer Lehrmittelverlag ver- 
sucht sich ebenfalls mit Lernpro- 
grammen aufdem Marktzu behaup- 
ten: Hagemann aus Düsseldorf. Ha- 
gemann bietet verschiedene Ma- 
thelektionen an, die sich auf sieben 
Kassetten und sechs Disketten ver- 
teilen. Die Kassetten kosten ab 38,50 
Mark, die Disketten zwischen 65 
und 69 Mark. 

Am besten gefiel, wie die Aufga- 
ben zu lösen waren. Bei den vier 
Grundrechnungsarten erfolgen die 
Rechnungen wie auf einem Blatt Pa- 
pier. Überhaupt nicht begeistern 
konnte die Art der Eingaben. Bei 
den Grundrechungsarten wird 
durch eine GET-Routine eingelesen, 
was Tippfehler sofort als Rechen- 
fehler abstempelt. Bei Prozent- und 
Zinsrechnung läuft die Eingabe 
über einfache INPUTs, was dazu 
führt, daß das Programm unsinnige 
Eingaben erlaubt und der Compu- 
ter dann Fehlermeldungen des Be- 
triebssystems ausgibt. Wie Hage- 
mann versicherte, sollen ab Dezem- 
ber neue Programmversionen auf 
den Markt kommen, die Eingabe- 
fehler abfangen. Die optische Auf- 
machung der Lernprogramme für 
Grundrechenarten ist für die Ziel- 
gruppe der Rechenanfänger ange- 
messen, könnte aber besser gestal- 
tet sein. Dafür gibt es ausführliche 


Original 
problen 


Beispiele mit Erklärungen bei fal- 
schen Antworten. Besonders ist her- 
vorzuheben, daß die Programme 
über keinen Kopierschutz verfügen. 
Der Schüler kann das Programm lı- 
sten und anschauen, um einen Be- 
zug zum Computer zu bekommen. 
Das soll auch bei den neuen Versio- 
nen so bleiben, falls es programm- 
technisch möglich ist. 


Mit »junior mathemat« bietet Data 
Becker ein Spiel- und Lermpro- 
gramm an. Es soll, wie im Vorwort 
zum Programm steht, den Mathema- 
tikunterricht, von der Grundschule 
an, begleiten. Das Programm um- 
faßt eine Vielzahl von Aufgabenstel- 
lungen. Neben den vier Grundre- 
chenarten soll »junior mathemat« 
auch beim Üben von Mengenlehre, 
Maßeinheiten, Zahlenbetrachtun- 
gen und Ungleichungen zur Seite 
stehen. 

Bevor man sich ans Werk macht, 
muß erst langwierig für jeden Schü- 
ler eine Datei aufeiner eigenen Dis- 
kette kreiert werden. Diese enthält 
Angaben über die Anzahl und Art 
der Aufgaben, die gestellt werden 
sollen, und den Namen des Schü- 
lers. Beim Formatieren dieser Dis- 
kette ist es dringendst zu empfehlen 
»junior mathemat,ma« als Disketten- 
namen einzugeben, um nicht beim 
späteren Arbeiten einen »Disketten- 
fehler« zu erzeugen. Wegen des vor- 
handenen Kopierschutzes kann die 
Datei mit den persönlichen Anga- 
ben leider nicht auf der Programm- 
diskette abgespeichert werden und 
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Type in numbers to be canceliled or 


reduced. 
Second number: 12_ 


macht dadurch den Schüler zum 
Diskjockey. 

Hat man wieder die Programm- 
diskette eingelegt und »junior ma- 
themat« gestartet, wird der Name 
abgefragt. Entspricht die Schreib- 
weise nicht exakt der in der Datei, 
wird erklärt, daß der Name falsch 
eingegeben ist. Man erhält keinen 
Hinweis, wo der Fehler zu suchen ist. 

Pädagogisch nicht sinnvoll ist die 
Art, mit der ein Schüler bei einem 
falschen Ergebnis konfrontiert wird: 
Pro falsche Antwort sind drei Fra- 
gen mehr zu beantworten. Diese 
Strafarbeit läßt das Programm 
schnell unattraktiv werden. Als Be- 
lohnung bietet das Programm ein 
grafisch unbedeutendes Fangspiel 
an, das nicht unbedingt zum Weiter- 
üben reizt. 

Hat der Schüler den Aufgabenka- 
talog durchgearbeitet, steht eine Er- 
folgskontrolle zur Verfügung, die 
nach jeder Übungsstunde aktuali- 
siert wird. Wegen der frustrieren- 
den Art, mit der dem Schüler, bei 
falschen Antworten, Zusatzaufga- 
ben aufgebrummt werden und der 
schwachen Benutzerführung konnte 
»mathemat junior« nicht überzeu- 
gen. Das Programm kostet 69 Mark 
(nur Diskette erhältlich). 


Schon seit längerem bietet CBS- 
Software Lernprogramme auf dem 
amerikanischen Markt an. CBS will 
nun den deutschen Markt mit einer 
Serie von Mathematikprogrammen 
erobern. 
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Bild 6. Die »Math Mansion« von Hes. 


»Sucess With Math« heißt der Slo- 
gan und die Programmserie. Das 
Aufgabenspektrum der Serie reicht 
von den Grundrechungsarten bis zu 
linearen und quadratischen Glei- 
chungen. Das erste der acht Lern- 
pakete umfaßt die Rechenarten Ad- 
dition und Subtraktion. Die einzel- 
nen Übungen werden dem Schüler 
lieblos vorgesetzt, so daß der Spaß 
am Lernen schnell schwindet. Bei 
bestandenen Lektionen winkt kein 
Lob in Form von Grafik oder Sound. 
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Statt dessen erhält man eine trocke- 
ne Fehleranalyse serviert. In jedem 
Schulbuch wird der Lernstoff attrak- 
tiver angeboten. 

Die anderen Lernpakete wie Mul- 
tiplikation und Division konnten 
ebensowenig überzeugen, wie die 
letzten beiden Lektionen über linea- 
re und quadratische Gleichungen. 

Ein zusätzlicher entscheidender 
Nachteil der CBS-Lernpakete ist die 
Tatsache, daß die Programme in 
Englisch abgefaßtsind und dadurch 





die größte Zielgruppe der Änwen- 
der, Schulkinder in den unteren 
Klassen, völlig verfehlen. Von Pro- 
grammen dieser Preisklasse (Kas- 
sette 49 Mark, Diskette 69 Mark) soll- 
te man mehr erwarten können. 


Im Labyrinth 
der Mathematik 


Mit »TRI-MATH« bietet Hesware 
ein Lernprogramm an, das schon 
nach dem Laden durch die hervor- 
ragende grafische Aufmachung die 
Aufmerksamkeit des Schülers auf 
sich lenkt. Das Programm besteht 
aus drei Teilen: zwei Science-fiction- 
Teilen und einem Adventure. In je- 
dem der Programmteile soll der 
Schüler, auf recht spielerische Wei- 
se, Kopfrechnen üben. Die Aufga- 
ben entsprechen dabei den Änfor- 
derungen der unteren Schulklas- 
sen. Es werden die Grundrechenar- 
ten verlangt. Im ersten Spiel gilt es 
schneller zu rechnen als ein kosmi- 
scher Geoner. Im zweiten müssen 
für einen »Digitosaurus« Aufgaben 
gelöst werden, damit dieser alt und 
weise wird und schließlich mit sei- 
nem Helfer in der »Hall of Fame«lan- 
det. Der dritte Teil, ein Adventure, 
bei dem richtige Lösungen Tür und 
Tor öffen, besticht durch seine grafi- 
schen Fähigkeiten. 

Trotz der guten Eigenschaften 
wird sich »TRI-MATH« schwer am 
deutschen Markt durchsetzen, da 
das Programm in Englisch abgefaßt 
ist und nur einfache Aufgaben stellt. 











Es war nicht immer so 





Mathematiknachhilfe mit dem 
Computer ist eine neue Art des Ler- 
nens. Die Programme dazu können 
ohne weiteres als Prototypen be- 
zeichnet werden, die noch verbes- 
serungsbedürftig sind. Man sollte 
das Programmangebot gründlich 
prüfen, da, neben einigen brauch- 
baren Programmen, noch sehr viele 
existieren, die den Namen »Lem- 
programmı« nicht verdienen. (hm) 


Info 

Lernen mit Leopold 

West nn Software, Postfach 5520, 3300 Braunschweig 
l — Trainieren — Begreifen 

Hagemann, Karlstr. 20, 4000 Düsseldorf 






Sucess With Math 

CBS-International, Rue Chateau }, F-92200 Neuville 
Im Labyrinth der Mathematik 

Hesware, Human Engineering Software, 150 North Hill 
Drive, Brisbane, CA 94005 
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Assembler im Test 





testeten Assembler zu sprechen 

kommen, vorher noch ein paar 
Bemerkungen über die Zielgruppe 
dieser Programm-Pakete. 

Die in der letzten Ausgabe vorge- 
stellten Assembler kann man sowohl 
vom Preis als auch von den Möglich- 
keiten her zu den professionellen 

Programmentwicklungssystemen 
zählen (vielleicht mit Ausnahme des 
T.EX.AS.,, der als Lehrsystem be- 
zeichnet wird). In ihnen sind Funk- 
tionen enthalten, die selbst fort- 
geschrittene (Assembler-)Program- 
mierer erst nach relativ langer Zeit 
und nach andauernder Benutzung 
beherrschen und anwenden. Dann 
allerdings möchte man auf den ge- 
botenen Komfort und die mächtigen 
Befehle (zum Beispiel Makro- 
Bibliotheken, bedingte Assemblie- 
rung, etc.) nicht mehr verzichten. 

Assembler, wie sie in dieser Aus- 
gabe vorgestellt werden, wenden 
sich mehr an den Assembler-An- 
fänger und Gelegenheitsprogram- 
mierer. Das heißt jedoch nicht, daß 
mit ihnen nichtauch vernünftig gear- 
beitet werden könnte. Für kleinere 
Projekte (klein bezieht sich nicht nur 
auf den Umfang, sondern auch auf 
die Komplexität) reichen diese As- 
sembler nicht nur aus, sondern er- 
füllen durchaus ihren Zweck. Da es 
keine unnötigen Funktionen gibt, 
braucht man sich nicht mit einem 
Ballast von Kommandos herumzu- 
schlagen. Die Geschwindigkeit ist 
(abgesehen _ vielleicht vom 
Mastercode-Assembler) völlig aus- 
reichend. Mit Ausnahme vom Pro- 
fimat-System sind in den anderen 
drei Programmen Editor, Monitor 
und Assembler zusammengefaßt, 
so daß Maschinensprache-Pro- 
gramme in einem Arbeitsgang ge- 
schrieben, assembliert und getestet 
werden können. Auch das ist ein 
Vorteil. Nun ist es aber nicht so, daß 
ein Assembler unbedingt notwen- 
dig zum Programmieren in Maschi- 
nensprache ist. Ein guter Monitor, 
wie zum Beispiel der SMON, stellt 
fast alle Hilfsmittel zur Verfügung 
(sehr wichtig zum Beispiel: Label). 
So wurde unter anderem das Pro- 
gramm HYPRA-LOAD aus Ausgabe 
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10/84 in monatelanger Arbeit, aber 
lediglich mit einem Monitor erstellt. 
Ein Assembler hat jedoch den Vor- 
teil, daß ein Einfügen von Pro- 
grammschritten einfacher und 
schneller möglich ist. Auch hat man 
die Möglichkeit, schon während der 
Programmierung Kommentare ein- 
zufügen, so daß man auch nach län- 
gerer Zeit seinen Entwurf noch ver- 
stehen und nachvollziehen kann. 
Nun aber zu den einzelnen Assem- 
blern. 





Mastercode 





Mastercode ist ein kombinierter 
Editor/Assembler/Monitor und wird 
vom Verlag Markt & Technik AG ver- 
trieben. Er ist auf Diskette und Kas- 
sette lieferbar. 


Editor 

Eine Außerlichkeit hebt Masterco- 
de von allen anderen Assemblern 
ab: Alle Funktionen werden über 
Menüs und Untermenüs abge- 
wickelt. Dies ist gerade für einen 
Anfänger sinnvoll, der sich nicht ei- 
ne Unmenge von Befehlen merken 
möchte. 

Im Editor stehen die Unterpunkte 
Eingabe, Auflisten, Löschen, Umnu- 
merieren, Speichern und Laden zur 
Verfügung. Dieser Editor ist völlig 
eigenständig, das heißt vom Basic- 
Editor unabhängig. Er arbeitet aller- 
dings streng zeilenorientiert, so daß 
jede eingegebene Zeile mit einer 
Nummer beginnen muß. Man kann 
nicht, wie beim Editieren von Basic- 
Programmen, mit dem Cursor rauf 
und runter fahren. 

Es lassen sich schon existente By- 
tefolgen in den Quelltext überneh- 
men, sie werden dann mit einem 
Pseudo-Opcode für Tabellen verse- 
hen. Dies ist aber nur nützlich bei 
frei verschieblichen Programmtei- 


len, oder eben Tabellen, weil sonst 
alle Adressen von Hand angepaßt 
werden müßten. 

Interessant ist noch, daß beim La- 
den von Quelltexten immer ein 
MERGE durchgeführt wird. Da- 
durch lassen sich recht einfach zwei 
Quelltextdateien mischen. 

Der nutzbare Speicher für den 
Quelltext ist enttäuschend knapp 
gehalten. Der maximale Speicher- 
bereich für Quelltexte beträgt näm- 
lich 15 KByte, das entspricht maxi- 
mal 1000 Zeilen Assemblerauell- 
text, Kommentare nicht eingerech- 
net. Selbst diese Zahl ist bei der Ver- 
wendung von vielen Labeln nicht er- 
reichbar. Das wäre ja alles nicht so 
schlimm, wenn es möglich wäre, 
Quelltextfiles miteinander zu verket- 
ten. Ein nur etwas längerer Quelltext 
muß dann jedoch in zwei Einzeltexte 
aufgeteilt werden, wobei im zweiten 
sämtliche benötigten Label noch 
einmal definiert werden müssen, da 
beide Teile nur unabhängig vonein- 
ander assembliert werden können. 

Auch die geringe Verarbeitungs- 
geschwindigkeit macht die Arbeit 
nicht gerade zum Vergnügen. 


Assembler 

Label dürfen bis zu sechs Zeichen 
lang sein und können auch, wenn 
man sie als Variable, das heißt als 
Zwischenspeicher benutzt, erst 
nach dem Gebrauch definiert wer- 
den. Es dürfen maximal 100 ver- 
schiedene Label im Quelltext auf- 
treten. 

Die Ausgabe der Symboltabelle, 
also die Auflistung sämtlicher ver- 
wendeter Label, kann nach Beendi- 
gung des Ässemblierens erfolgen. 

Mastercode unterstützt die Zah- 
lensysteme binär, oktal, dezimal und 
hexadezimal sowie die Eingabe im 
ASCII-Code. Rechnungen dürfen im 
Quelltext in den vier Grundrech- 
nungsarten durchgeführt werden. 
Tabellen lassen sich entweder ganz 
normal als Byte-für-Byte-Tabellen 
oder als Adreßtabellen aufbauen. 

Es ist möglich, den Objectcode di- 
rekt in den Speicher oder aufein Pe- 
ripheriegerät (Kassette, Floppy) aus- 
zugeben oder den Quelltext einfach 
nur auf Fehler zu untersuchen. Auf 
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Im zweiten Teil unseres Assembler-Tests kommen die Assembler unter 100 Mark 


an die Reihe. Wir stellen folgende Produkte vor: Mastercode-Assembler, Profimat, 
Profisoft und Maschine 64. Obwohl sie in der unteren Preisklasse angesiedelt sind, 
können sie eine wertvolle Hilfe beim Einstieg in die Maschinensprache sein. 





dem Drucker erhält man im An- 
schluß an die Assemblierung ein 
sauber formatiertes Quelltext/ 
Objektcode-Listing. 

Als letztes sei noch erwähnt, daß 
Kommentare nur für sich alleine in 
Quelltextzeilen stehen dürfen und 
nicht, wie sonst üblich, auch durch 
Semikolon getrennt hinter einem 
Assembler-Befehl. 


Monitor 

Mastercode hält nur die Minimal- 
funktionen eines Monitors bereit. 
Dazu gehören das Disassemblieren, 
der Hexdump und das Verändern 
von Speicherbereichen, das Starten 
von Maschinenprogrammen, das 
Laden und Speichern von Objektco- 
de sowie ein einfacher Einzelschritt- 
betrieb zum Austesten von Maschi- 
nenprogrammen. 

Bei einem Hexdump macht es an- 
fangs richtig Spaß, zuzusehen, wie 
die einzelnen Bytes schön nachein- 
ander auf dem Schirm erscheinen 
und schon nach einigen Sekunden 
ein paar Zeilen auf dem Bildschirm 
stehen. Aberschon bald beginnt die 
extrem geringe Geschwindigkeit al- 
ler Monitorfunktionen zu stören, da 
man nicht jedesmal minutenlang auf 
ein Disassemblerlisting oder sonsti- 
ges warten möchte. Ein kurzer Blick 
mit Mastercode auf Mastercode be- 
stätigte dann den Verdacht, daß 
man es hier mit compiliertem Basic 
zu tun hat, das es wohl kaum mit ir- 
gendeinem anderen Monitor, derin 
Maschinensprache geschrieben 
wurde, aufnehmen kann. 


Dokumentation 

Als »Handbuch« erhält man knap- 
pe 50 Seiten im augenermüdenden 
Compactkassettenformat, was wohl 
von der ursprünglichen Vertriebs- 
form auf Kassette herrührt. Inzwi- 
schen ist Mastercode aber auch auf 
Diskette erhältlich. 

Dieses, aufgeklappt noch nicht 
einmal eine Postkarte bedeckende, 
Heftchen enthält aber, sauber ge- 
gliedert, alle Informationen, die zum 
Betrieb von Mastercode notwendig 
sind, diese allerdings etwastrocken 
und nicht gerade mit sinnvollen Bei- 
spielen aufgelockert. Im Anhand 
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stehen Tabellen aller Opcodes des 
6510 Mikroprozessors in alphabeti- 
scher wie numerischer Reihenfolge. 

Äls Fazit möchte ich ziehen, daß 
Mastercode sich wohl nur für dieje- 
nigen eignet, die kleine Aufgaben in 
Assembler lösen wollen und dabei 
nicht unter Zeitdruck stehen. Für ei- 
nen AÄnfänger ist, wie schon er- 
wähnt, die Menü-Struktur von Ma- 
stercode sehr nützlich. 


Profimat 


Das Assemblerpaket Profimat von 
Data Becker enthält den Assembler 
Profiass und den Monitor Profimon. 
Beschäftigen wir uns zunächst mit 
Profiass. 





Assembler 

Profiass-Quelltexte werden wie 
normale Basic-Programme einge- 
geben, können sogar in Basic- 
Programme eingebettet sein. Ein zu- 
sätzlicher Editor oder eine Befehls- 
erweiterung zur leichteren Eingabe 
wird nicht mitgeliefert. Um gleich 
die Zusammenarbeit mit Basic- 
Programmen zu verdeutlichen: Di- 
rekt vor dem Quelltext muß Profiass 
mit SYS 32768 aufgerufen werden, 
ein Rücksprung ins Basic-Programm 
ist dann mit dem Pseudo-Opcode 
»GTB« möglich. 

Label dürfen bei Profimat bis zu 
acht signifikante Zeichen haben. Be- 
rechnungen können in dendreiübli- 
chen Zahlensystemen (Hex., Dez., 
Bin.) vorgenommen werden. Hier 
sind die Grundrechenarten sowie 
logische Funktionen und Schiebe- 
operationen erlaubt. Manscheint al- 
lerdings das logische NOT verges- 
sen zu haben, dafür ist XOR enthal- 
ten. Klammern dürfen beliebig ge- 
setzt werden. 

Eine interessante Eigenschaft von 
Profiass ist, erstellte Symboltabellen 
speichern und wieder laden zu kön- 
nen. Sollten Sie öfters Routinen aus 
dem Betriebssystem benötigen, 
brauchen Sie die entsprechenden 
Label nicht für jedes Programm neu 
zu definieren, sondern können sie in 
die Symboltabelle laden. 

Ebenso interessant ist, daß meh- 


rere Assemblerbefehle durch Dop- 
pelpunkt getrennt in einer Zeile ste- 
hen dürfen. 

Zuden üblichen Pseudo-Opcodes 
für Tabellen tritt ».FLP« mit dem es 
möglich ist, Zahlen im Commodore- 
Fließkommaformat im Speicher ab- 
zulegen. Dies ist brauchbar, wenn 
man in Assembler Fließkommarouti- 
nen schreiben möchte. 

Quelltexte können miteinander 
verkettet werden, das heißt, ein 
Quelltext ruft den nächsten zu as- 
semblierenden auf. Somit lassen 
sich auch größere Programme as- 
semblieren, insbesondere, weil Pro- 
fiass den Objektcode direkt zur Dis- 
kette schicken kann. 

Auchder Ausdruck von Listings ist 
steuerbar und kann auf beliebige 
Peripheriegeräte gesandt werden. 
Diese Listings werden voll forma- 
tiert und sogar seitenweise mit Kopf- 
und Fußzeilen ausgedruckt. 


Makros 

Profiass bietet auch Makros. Ein 
Makro ist eine meist kurze Befehls- 
sequenz, die man nicht jedesmal 
neu eintippen möchte und deshalb 
mit einem eigenen Namen versieht, 
mit dem sie dann jederzeit aufgeru- 
fen werden kann. Im späteren Ob- 
jektcode steht dann anstelle des 
Makroaufrufes jedesmal die vorher 
definierte Befehlssequenz. Es ist 
auch möglich, dieser Befehlsse- 
auenz von Mal zu Mal wechselnde 
Parameter zu übergeben. 

Makros bei Profimat dürfen belie- 
big viele interne Label verwenden. 
Diese müssen aber durch einen 
Punkt gekennzeichnet werden, 
dann erhalten sie automatisch eine 
Ordnungsnummer, so aaß ein mehr- 
maliges Aufrufen des Makros mög- 
lich ist, ohne ein Label zweimal zu 
definieren. Zwei verschiedene Ma- 
kros müssen aber verschiedene in- 
terne Label benutzen. 

Makros dürfen hier nicht ver- 
schachtelt werden, das heißt ein 
Makro darf kein anderes Makro auf- 
rufen. 

Alle Makrodefinitionen müssen 
am Anfang des ersten zu assemblie- 
renden Programms stehen, wenn 
Quelltexte verkettet werden sollen. 
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Damit wird das Aufbauen einer Ma- 
krobibliothek sehr erschwert. 

Insgesamt sind gegenüber ande- 
ren, teureren Ässemblern die Mög- 
lichkeiten der Makros einge- 
schränkt und wenig flexibel. Meiner 
Meinung nach hätte dieser Pro- 
grammteil ruhig einer besseren Be- 
nutzerführung zum Opfer fallen kön- 
nen. 


Monitor 

Der Monitor Profimon enthält so 
ziemlich alle üblichen Befehle. Es 
können die Register sowie Spei- 
cherstellen in Hex-Dumps oder dis- 
assembliert angezeigt werden. 
Speicherbereiche können verscho- 
ben, mit anderen Bereichen vergli- 
chen oder mit bestimmten Werten 
gefüllt werden. Auch das Durchsu- 
chen nach einer Bytefolge ist mög- 
lich, ebenso wie natürlich Laden 
und Speichern von Programmen. 
Zum Äustesten von Programmen ist 
ein Breakpoint frei definierbar, bei 
dessen Erreichen in den vorhande- 
nen Einzelschrittmodus umgeschal- 
tet wird. 

Mich stört allerdings, daß hier 
kein einfacher Assembler wie in an- 
deren Monitoren vorhanden ist. Es 
ist eigentlich zu umständlich, für je- 
de kleine Änderung im Programm 
den Quelltext erneut zu assemblie- 
ren, insbesondere, da Profimon ja 
eigentlich ein eigenständiges Pro- 
gramm sein soll. Eine Eigenschaft ist 
allerdings ungewöhnlich. Mit Profi- 
mon kann man auch auf das RAM 
unter dem Basic- und Kernal-ROM 
zugreifen oder das Charakter-ROM 
auslesen. Insgesamt gesehen, läßt 
es sich mit Profimon nicht anders als 
mit anderen handelsüblichen Moni- 
toren arbeiten. 


Dokumentation 

Es befinden sich 34 Seiten Änlei- 
tung in einem DIN-AS-Ordner im ty- 
pischen Data Becker-Desian. Diese 
Anleitung hat aber einige Mängel. 
So wird man beispielsweise erst bei 
der Erklärung der Verkettung von 
Quelltexten mit der Tatsache über- 
rumpelt, daß der Assembler mitSYS 
32768 gestartet wird, was vorher 
nicht erwähnt wurde. Wer gezielt In- 
formationen sucht, wird sie teilweise 
nicht finden, dasie manchmal in the- 
matisch anderen Abschnitten ver- 
steckt sind. Das ist eigentlich scha- 
de, weil gerade auch der Profimat 
wohl die Erstkäufer eines Ässem- 
blers anspricht. Der Profimat ist 
nach Preis und Qualität für den Än- 
fänger mit ÄAufstiegsambitionen ge- 
eignet. Für fortgeschrittene Pro- 
grammierer bietet er allerdings zu 
wenig. 
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Profisoft vertreibt ein kleines Pro- 
grammpaket zur Erstellung von As- 
semblerprogrammen, das im fol- 
genden in Ermangelung eines 
klangvollen Namens mit Profisoft- 
Assembler bezeichnet wird. Dieses 
Programmpaket umfaßt neben ei- 
nem AÄssembler auch einen Re- 
Assembler, einen Mini-Monitor so- 
wie einen Editor und ist sowohl auf 
Kassette alsauch Diskette erhältlich. 


Editor 

Als Editor für den Quelltext wird 
der normale Basic-Editor verwen- 
det. Um die Eingabe komfortabler 
zu gestalten, wurden einige Toolkit- 
ähnliche Funktionen in das Pro- 
gramm eingebaut. Diese stehen 
dann auch zum Schreiben und Edi- 
tieren von Basic-Programmen zur 
Verfügung. 

Insgesamt gibt es 16 neue Befehle, 
die alle mit einem »-—« beginnen. 
Darunter befinden sich neben den 
Aufrufbefehlen für Assembler, Re- 
Assembler und Monitor, Befehle für 
automatische Zeilennumerierung 
und Zeilenumnumerierung (Renum- 
ber). Es ist ein Re-New vorhanden, 
das auch nach einem Reset wirksam 
ist und den Quelltext, sofern er nicht 
anderweitig zerstört wurde, wieder 
regeneriert. Dies ist besonders in 
der Testphase von Programmen 
nützlich, da man sich das ewige Ab- 
speichern und Neuladen erspart. 

Ein weiterer interessanter Befehl 
ist »—F«, mit dem man nicht nur Zei- 
chenketten im Quelltext finden, son- 
dern auch durch andere ersetzen 
kann. Ebenso ist das SAVEn be- 
stimmter Speicherbereiche mög- 
lich, wie auch die Ausgabe der 
genauen Speicherbelegung der 
Quelltexte und Tabellen. Alles in al- 
lem ist das Erstellen von Quelltext 
sehr komfortabel und dürfte wohl 
auch höheren Ansprüchen genü- 
gen. 


Assembler 

Doch nun zum Ässembler selbst. 
Hier darf ein Label aus maximal 
acht Zeichen bestehen, dabei soll- 
ten allerdings keine Leer- und Son- 
derzeichen verwendet werden. Ta- 
bellen werden mit drei Pseudo- 
Opcodes unterstützt, einer für Ein- 
zelbytes, einer für Texte und einer 
für Adressen. Während des zweiten 
Durchlaufs kann ein Listing wahl- 
weise auf Bildschirm oder Drucker 
(nach OPEN) ausgegeben werden. 
Dieses Listing wird allerdings nicht 
formatiert, das heißt Labels und 


Kommentare stehen nicht geordnet 
untereinander. Dies läßt sich nur 
durch entsprechende Eingabe des 
Quelltextes erreichen. Einzelne 
Quelltextfiles auf Diskette/Kassette 
können beliebig aneinanderge- 
hängt beziehungsweise nachgela- 
den werden. 


Re-Assembler 

Ein sehr nützlicher Programmteil 
ist der eingebaute Re-Assembler. 
Dieser wird in der Anleitung 
fälschlicherweise als Disassembler 
bezeichnet. Im Gegensatz zu einem 
Disassembler, der Maschinenpro- 
gramme aufdem Bildschirm anzeigt 
oder auf dem Drucker ausgibt, er- 
zeugt ein Re-Ässembler, wieder 
Quelltext, der dann nach Änderun- 
gen erneut assembliert werden 
kann. Der Vorteil liegt auf der Hand. 
Wenn Sie nachträglich in ein Pro- 
gramm etwas einfügen oder es um- 
schreiben wollen, aber den Quell- 
text nicht besitzen, so können Sie 
sich diesen einfach regenerieren. 
Natürlich ist dieser Quelltext nicht 
gleich dem Original, denn woher 
sollte der Re-Assembler beispiels- 
weise die Namen der einzelnen La- 
bels kennen? 

Bei einem vom Profisoft-Re-As- 
sembler erzeugten Quelltext wer- 
den alle Speicherzugriffe und 
Sprünge über Labels abgewickelt. 
Um die Labels eindeutig zu halten, 
sehen sie folgendermaßen aus: Der 
erste Buchstabe ist einLL, gefolgt von 
der hexadezimalen Adresse des tat- 
sächlichen Speicherplatzes, zum 
Beispiel LFFD2. Sollte der Re- 
Assembler auf einen undefinierten 
Opcode stoßen, so behandelt er ihn 
als Mini-Tabelle, bestehend aus ei- 
nem Byte mit dem entsprechenden 
Pseudo-Opcode. In einem Durch- 
lauf können maximal 4 bis 6 KByte 
re-assembliert werden; er dauert 
zirka 30 Sekunden. 


Der Mini-Monitor 

Nun noch einige Worte zum Mini- 
Monitor. Mit ihm lassen sich Spei- 
cherbereiche hexadezimal anzei- 
gen, verändern und verschieben. 
Damit sind seine Möglichkeiten 
schon ausgeschöpft. Er ist aller- 
dings insbesondere für das Ver- 
schieben des erzeugten Object- 
Codes notwendig, wenn der Quell- 
text an eine andere Stelle als der 
späteren tatsächlichen Startadresse 
assermbliert wurde. 


Dokumentation 
Ein Programm, das gerade wegen 


seines Preises und seiner angepaß- 
ten Leistungen für Anfänger und 
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leicht Fortgeschrittene geeignet ist, 
benötigt natürlich auch eine gute 
Anleitung. Die vorliegende ist mit 16 
Seiten DIN A5 etwas knapp. Sie setzt 
schon Kenntnisse der Maschinen- 
sprache und des Computers voraus. 
Es werden alle Funktionen hinrei- 
chend genau erklärt. Leider sind 
nur sehr wenige Beispiele abge- 
druckt. Ist man allerdings erst ein- 
mal mit dem Programm vertraut, 
wird man die Anleitung gerne wei- 
terhin als schnelles Nachschlage- 
werk benutzen. 

Insgesamt hat das Programm ei- 
nen sehr guten Eindruck hinterlas- 
sen. Seine Bedienung ist einfach 
und doch komfortabel. Auch bei 
Fehlen stürzt der Profisoft- 
Assembler nicht ab (ein Totalabsturz 
ist nur bei mutwilligem Überschrei- 
ben des Assemblers selbst mög- 
lich). Mit dem Re-Assembler können 
auch fremde Programme leicht ver- 
ändert werden. Das fordert direkt 
zum Experimentieren heraus. Ein 
kleiner Schwachpunkt ist lediglich 
der Monitor. 


Maschine 64 


Der letzte hier vorgestellte Assem- 
bler heißt Maschine 64 und wird von 
Dynamics vertrieben. Auch Maschi- 
ne 64 erfüllt eine Vielzahl von Funk- 
tionen, es ist Assembler, Re- 
Assembler, Toolkit, DOS-Support, 
Monitor und Disk-Monitor in einem, 
und das bei nur 16 KByte Speicher- 
verbrauch. 





Editor 

Genauso wie beim Profisoft- 
Assembler werden Quelltexte wie 
Basic-Programme eingegeben. Die 
Eingabe des Quelltextes wird hier 
von einem Toolkit unterstützt. Vor- 
handen sind hier die Befehle AUTO, 
APPEND, DELETE, FIND, RENUM- 
BER. Zusätzlich gibt es dann noch 
die Befehle ASSEMBLER, REAS- 
SEMBLE, MONITOR, DISKMONI- 
TOR und BYE, welche die anderen 
Teile des Systems aufrufen, bezie- 
hungsweise Maschine 64 abschal- 
ten. 
Alle diese Befehle sind auch zum 
Editieren ganz normaler Basic- 
Programme geeignet. Zusätzlich ist 
im Editor, wie auch in allen anderen 
Programmteilen, eine Diskettenun- 
terstützung, ähnlich dem DOS 5.1, 
eingebaut. 


Assembler 

Über den Assembler selbst läßt 
sich folgendes sagen: Label dürfen 
beliebig lang sein, es werden aller- 
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dings nur die ersten 20 Zeichen un- 
terschieden. 

Sehr komfortabel ist das Anlegen 
von Texttabellen. Diese können 
nichtnurim ASCII-Code, wieüblich, 
sondern auch im Bildschirmcode 
und im invertierten Bildschirmcode 
angegeben werden. Dies ist sehr 
nützlich, wenn man Texte direkt in 
den Bildschirmspeicher schreiben 
und nicht über die Betriebssystem- 
routine »Zeichen ausgeben« arbei- 
ten will. 

Maschine 64 erlaubt auch Berech- 
nungen im Quelltext. Diese sind al- 
lerdings auf Addition und Subtrak- 
tion sowie LO-Byte und HI-Byte- 
Isolierungen beschränkt. Es dürfen 
maximal acht Klammern gesetzt 
werden. Das Assemblerlisting am 
Ende des zweiten Pass wird teilwei- 
se formatiert und kann, ebenso wie 
die Symboltabelle, auch auf einem 
Drucker ausgegeben werden. 


Re-Assembler 

Der Re-Assembler läßt kaum 
Wünsche offen. Er erzeugt aus Ob- 
jektcode wieder Quelltext. Auch 
hier werden, soweit wie möglich, 
Sprünge und Speicherzugriffe über 
Label abgewickelt. Besonders kom- 
fortabel sind allerdings drei Punkte: 
Dem Re-Assembler kann vor dem 
Start mitgeteilt werden, wo Tabellen 
und wo tatsächliches Programm im 
Speicher stehen, so daß Tabellen 
und Programm in einem Arbeits- 
gang in Quelltext umgewandelt wer- 
den können. Sollte der Re- 
Assembler auf einen nicht als Pro- 
gramm identifizierbaren Bytewert 
treffen, wird aus ihm eine Ein-Byte- 
MiniTabelle mit angehängtem ER- 
ROR. Solche Zeilen können dann 
sehr schnell mit dem FIND-Befehl 
ausfindig gemacht werden. Als letz- 
tes ist es auch möglich, einen be- 
stimmten Speicherbereich so zu re- 
assemblieren, alsob er in einem an- 
deren Bereich stehen würde. 


Monitor 

Besitzern des PET, dem Großvater 
der Home- und Personal Computer, 
wird der eingebaute Monitor unter 
dem NamenSUMO bekannt sein. Er 
kann Speicherbereiche anzeigen 
und ändern sowie durchsuchen, 
verschieben, vergleichen, füllen, la- 
den und speichern. Ein Disassem- 
bler ist ebenso vorhanden wie auch 
ein einfacher Line-by-Line-Assem- 
bier, der sich gerade bei kleinen 
Änderungen an einem Programm 
bezahlt macht. Auch sind Umrech- 
nungen Dez-Hex und umgekehrt 
möglich. Leider fehlt hier ein Einzel- 
schrittmodus, mit dem man Maschi- 


nenprogramme Schritt für Schritt auf 
Funktionstüchtigkeit testen kann. 


Disk-Monitor 

Kurz angesprochen werden soll 
auch noch der Disk-Monitor. Belie- 
bige Blöcke der Diskette können in 
den C 64-Speicher geholt und ange- 
zeigt, verändert und wieder zurück- 
geschrieben werden. Dabei ist es 
dann auch möglich, innerhalb eines 
Blocks Bytefolgen zu suchen oder zu 
verschieben oder gar den Block zu 
disassemblieren. Auch hier funktio- 
niert dann der Line-by-Line- 
Assembler. Leider fehlen Befehle, 
mit denen man blockübergreifend 
arbeiten könnte, so daß man immer 
auf einen einzelnen Block bei der 
Arbeit fixiert ist. 


Dokumentation 

Die knapp 30 Seiten Anleitung im 
DIN-A5-Format machen im ersten 
Augenblick einen recht guten Ein- 
druck, doch werden hier einige 
nützliche Details der einzelnen Pro- 
gramme verschwiegen, die man 
erst beim Probieren durch Zufall 
herausfindet. Ansonsten ist der Text 
sehr locker und leicht zu lesen. Lei- 
der sind aber auch hier die Beispie- 
le sehr knapp gehalten. Ein Fehler 
im Handbuch soll nicht unerwähnt 
bleiben. Entgegen : der Aussage, 
daß sich das Programm selbst star- 
te, mußte RUN eingegeben werden. 
Das kann einen beim ersten Kontakt 
mit Maschine 64 doch leicht in Ver- 
wirrung bringen. 

Insgesamt gesehen ist auch Ma- 
schine 64 ein sehr brauchbares, si- 
cheres und bedienerfreundliches 
Programm. Gerade seine vielen 
kleinen Details und Zusatzfunktio- 
nen erleichtern die Arbeit ganz er- 
heblich. Mit Maschine 64 wird man 
auch als fortgeschrittener Program- 
mierer nicht so schnell den Wunsch 
nach einem anderen Assembler 
verspüren. (B. Schneider/gk) 


Fazit 

Die vier hier vorgestellten Assem- 
bler bieten alle eine dem Preis ent- 
sprechende Leistung. Man sollte 
sich jedoch vor einem Kauf genau 
überlegen, wie weit man in die Ma- 
schinensprache einsteigen will. 
Zum »Reinschnuppern« in die As- 
semblerprogrammierung genügen 
diese Programme allemal. 


Mastercode Assembler: Markt & Technik, Hans-Pinsel-Str 
2.8013 Haar bei Munchen, Preis. Kassette 48 Mark, Diskette 
63 Mark 

Profimat: Data Becker, Merowinger Str. 30, 4000 Düsseldorf, 
Preis Diskette 99 Mark 

Profisoft- Assembler: Profisoft,Sutthauser Str. 50-52, 4500 0s- 
nabrück, Preis K sk. 75 Mark 

Maschine 64: Dynamıc 
Preis: Diskette 79 Mark 







Postfach 112005, 2000 Hamburg Il, 


YiR72.092 


Software-Test 


C 64 





Basic-Programm auf TRAB 


Haben Sie schon einmal 
daran gedacht, sich even- 
tuell einen Compiler zuzu- 
legen, um Basic-Program- 
me schneller zu machen? 
Sie wissen aber vielleicht 
noch zuwenig über Com- 
piler, um sich den richti- 
gen auszusuchen. Wir 
stellen Ihnen deshalb vier 
Typen vor. 


ir haben vier der bekannte- 
We Compiler getestet: Pet- 

speed, Austro-Speed, BASS- 
und Ex-Basic Level II-Compiler. Be- 
vor wir uns jedoch mit den »Prüflin- 
gen« genauer beschäftigen, wollen 
wir erst ein wenig auf die prakti- 
schen Grundlagen der Compiler 
eingehen. 

Wenn man Compiler hört, denkt 
man unwillkürlich immer zuerst an 
den Geschwindigkeitsgewinn, den 
diese Programme bringen sollen. In 
der Tat ist der Hauptzweck von 
Compilern in der zeitlichen Opti- 
mierungeines Programmlaufs zu se- 
hen, damit die Ausführungszeit ver- 
kürzt wird. So gibt esdemnach viele 
Compiler, deren Hauptkonzept in 
der Geschwindigkeitserhöhung 
liegt. 
Über diese Tatsachen darf man 
aber auch andere Eigenschaften 
von Compilern nicht vergessen. 
Compiler erhöhen zwar in derRegel 
die Geschwindigkeit der Basic-Pro- 
gramme, sie vertragen aber unter 
Umständen gewisse syntaktische 
Konstruktionen nicht, die beim Inter- 
preter ohne weiteres funktionieren. 
Außerdem werden kleinere Pro- 
gramme in der Regel durch das 
Compilieren um einiges länger als 
sie ursprünglich waren. 

Da wir gerade bei der Programm- 
länge sind, sollan dieser Stelle auch 
gleich auf die zwei verschiedenen 
Arten von Compilern eingegangen 
werden. Die erste Art ist der 
Assemblercode-Compiler, der ech- 
ten Maschinencode erzeugt und da- 
mit maximalen Geschwindigkeits- 
gewinn bringt. Der Nachteil dieser 
Methode ist, daß das compilierte 
Programm (Compilat) in der Regel 
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Hersteller Austro-Speed BASS Exbasic Level Petspeed 
I-Compiler 
Preis (ca.) 298,— 198,— 298,— 149,— 
Lieferumfang 1 Diskette 3 Disketten 1 Diskette 1 Diskette 
lHandbuch 2dickeHand.- 1Handbuch 3 Seiten Ein- 
bücher weisung 
Dokumentation gut ausgezeichnet befriedigend mangelhaft 
ungefähre Länge 63 Blocks 263 Blocks 290 Blocks 300 Blocks 
des Programms 
Anzahl PASSES 2 2 +2Assem- 2 +2 Assem- 4 
bler (wird bler (inte- 
nicht mitgelie- griert) 
fert) 

'hutz ja nein nein nein 
möglich? 
Integer Arithmetik ja ja ja ja 
Erweiterungen ja ja ja nein 


möglich? 

see SE ET rs Ze EEE NIE USE FISHER FIRE BO mo m an TE ge et 
variables DIM ja i i 
möglich? 


Automatisches DIM ja nein nein ja 
auf 11 Elemente 
Compilierdauer 3 min 7,10 min 12 min 7,30 min 
EDDI + 9 min ASSI 
(14 Blocks) 
Diskettenwechsel nein ja, 2mal ja, 4mal nein 
beim Compilieren 
ee a er TB re Fr He er ee 
Anzahl der erzeug- 2 10 1 2 
ten Files 


Te ee Eee 
Länge des Compi- 


lats (EDDI) 32 Blöcke 39 Blöcke 39 Blöcke 42 Blöcke 
Compilertyp _ Adreßcode + Assembler- Assembler- 
Assemblercode code code 


Tabelle 1. Vier Compiler im Vergleich 





Tabelle 2. Die vier Compiler im Zeitvergleich. Im Test 1 wurden mit der RND-Funktion 100 Zeichen 
ermittelt, sortiert und nebeneinander ausgegeben. Die Benchmark-Tests 1 bis 8 waren so aufgebaut, 
daß die Zeit für die angegebenen Befehle selbst ermittelt werden konnten. Deshalb ist die Gesamtzeit 
nicht identisch mit der Summe der einzelnen Testzeiten. Jeder Befehl (Benchmark 1 bis 8) wurde 
1000mal durchgeführt (siehe Listing 1). 
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gebracht- Compiler im Test 


um einiges länger wird als das ur- 
sprüngliche Basic-Programm. 

Beiderzweiten Art von Compilern 
(sogenannte Adreßcode-Compi- 
lern) geht man deshalb einen ande- 
ren Weca. Hier wird der Basic-Text in 
eine Liste von Sprungadressen um- 
gewandelt, was Speicherplatz spart, 
aber andererseits wieder auf Ko- 
sten der Geschwindigkeit geht. 

Wie Sie sehen, gibt es den perfek- 
ten Compiler nicht. Entweder ist ein 
Programm sehr schnell, dann ist es 
länger, oder eiri Programm ist nicht 
ganz so schnell, dafür wird es kür- 
zer. Einen guten Compiler erkennt 
man also am richtigen Kompromiß 
zwischen Geschwindigkeit und Län- 
ge des Compilats. Ein weiteres Qua- 
litätsmerkmal für Compiler ist die 
Dauer des Compilierens. Dieser 
Vorgang istzwar in der Regel einma- 
lig, da man nur ein wirklich fertiges 
Programm compilieren wird, er soll- 
te sich dennoch in vernünftigen 
Grenzen bewegen. 

Wenn wir uns jetzt gleich einmal 
mit den speziellen Eigenschaften 
der Testkandidaten vertraut ma- 
chen, sollten Sie immer an diese 
Merkmale denken. Das interessan- 
te an den getesteten Compilern ist 
nämlich, daß sie fast alle nach unter- 
schiedlichen Kriterien entwickelt 
wurden. 


Der Austro-Speed-Compiler 


Der erste Compiler, mit dem wır 
uns beschäftigen wollen, ist der 
Austro-Speed von Commodore. 
Austro-Speed ist eine verbesserte 
Version des Austro-Comp für die 
CBM-Systeme. Im Lieferumfang 
sind eine Diskette mit dem Pro- 
gramm, ein Handbuch mittleren 
Umfangs und ein Dongle enthalten. 
Ein Dondle ist ein programmschutz- 
technischer Hardwarezusatz, des- 
sen Vorhandensein abgefragt wird 
und ohne das der Compiler nicht 
läuft, (in diesem Fall ein Stecker für 
den User-Port). Als ich mir das In- 
haltsverzeichnis der Diskette anse- 
hen wollte, erlebte ich sofort eine 
Überraschung. Der ganze Compiler 
besteht aus einem einzigen Pro- 
gramm mit einer Länge von 63 
Blöcken (15,75 KByte). 

Als Testprogramm für den Compi- 
liervorgang diente der Disk-Monitor 
EDDI aus der 64er, Ausgabe 
10/1984. Dieses Programm hat den 
Vorteil, daß es nicht zu kurz ist. Au- 
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ßerdem ist der Programmierstil an 
vielen Stellen alles andere als sau- 
ber. Haben Sie übrigens bemerkt, 
daß sich bei EDDI ein Fehler ein- 
geschlichen hat? In der Zeile 1070 ist 
die IF-Abfrage überflüssig und zeigt 
außerdem auf eine nicht vorhande- 
ne Zeile (1090). Diese Abfrage stört 
den Programmablauf nicht im ge- 
ringsten, wir können jedoch ge- 
spannt auf die Reaktionen der Com- 
piler sein, wennsie diese Zeile abar- 
beiten. Jetzt aber wieder zurück zu 
Austro-Speed. 

Bevor man den Compiler in den 
Computer lädt, muß man darauf 
achten, daß das Dongle auf den 
User-Port des C 64 gesteckt ist. Für 
den Vorgang des Compilierens ist 
es in der Regel notwendig, daß viel 
Platz auf der Diskette mit dem Basic- 
Programm vorhanden ist, da die 
Compiler eine Menge Dateien er- 
stellen, die jedoch nach dem Com- 
pilieren normalerweise wieder ge- 
löscht werden. Das ist besonders 
bei langen Programmen zu beach- 
ten. 

Nachdem wir auch diese letzte 
Vorbereitung ausgeführt haben, 
starten wir den Compiler. EDDI be- 
steht aus 14 Blöcken auf Diskette. 
Nach genau drei Minuten ist Äustro- 
Speed mit der Arbeit fertig, und das 
Compilat steht zur Verfügung. 

Während des Compilierens hat 
Austro-Speed sogar den Programm- 
fehler entdeckt und angezeigt, je- 
doch seine Arbeit nicht unterbro- 
chen. 

Wenn wir uns die Diskette be- 
trachten, so sehen wir, daß unser 
Programm an Länge ganz erheblich 
zugenommen hat. Es besteht jetzt 
aus 32 Blöcken und ist damit mehr 
als doppelt so lang geworden. 

Zur Erleichterung einer eventuell 
noch folgenden Korrektur bei ei- 
nem Fehler, legt Austro-Speed noch 
ein weiteres File ab, das die neuen 
Speicheradressen sämtlicher Pro- 
grammzeilen enthält. 

Da ein Compiler ein Basic-Pro- 
gramm nicht auf einmal übersetzt, 
sondern dafür mehrere Durchläufe 
benötigt, kann man auch anhand 
der Anzahl dieser Durchläufe 
(Durchlauf = Pass) einen Compiler 
charakterisieren. Äustro-Speed be- 
nötigt für seine Arbeit zwei dieser 
Durchläufe; man bezeichnet ihn 
deshalb auch als 2-Pass-Compiler. 

Unser nächstes Programm heißt 
BASS und kommt von gmbsoft. Der 


Unterschied zu Austro-Speed wird 
sofort deutlich, wenn man sich den 
Lieferumfang betrachtet. Er besteht 
aus drei Disketten und zwei dicken 
Handbüchern. Bei einer der Disket- 
ten handelt es sich um eine Demo- 
diskette, die unter anderem ein Sor- 
tierprogramm enthält, um die Ge- 
schwindigkeit eines Compilats zu 
demonstrieren. 


Der BASS-Compiler 


Wie bei Austro-Speed habe ich 
auch hier erst einmal das Directory 
gelistet. Hat man die Länge der 
Austro-Speed noch vor Augen, so 
trifft einen hier fast der Schlag. Bei 
BASS handelt es sich um den rein- 
sten »Mammutcompiler«. Er arbeitet 
zwar auch nur mit zwei Durchläufen, 
jedoch besteht hier allein schon der 
Pass ] aus einem über 100 Blöcken 
langen Programm, der von Pass 2 
noch übertroffen wird. 

Da es bei einer solchen Komplexi- 
tät kaum möglich ist, einfach »drauf- 
los« zu arbeiten, sollte man sich erst 
einmal eines der beiden Handbü- 
cher vornehmen (das dünnere, ver- 
steht sich). Und hier erlebtman auch 
gleich die erste Überraschung. Der 
Compiler erzeugt bei seiner Arbeit 
kein lauffähiges Programm, son- 
dern nur eine stattliche Anzahl von 
Dateien (insgesamt 10), die editierfä- 
higsind und noch einen Assemblier- 
lauf benötigen, bevor ein fertiges 
Programm daraus entsteht. 

Diese Konzipierung hat aber na- 
türlich einen Sinn. Bei gmbsoft hat 
man versucht, einen Compiler her- 
zustellen, der so offen wie möglich 
arbeitet; das heißt der Programmie- 
rer sollauch nach dem Compilieren 
noch die Möglichkeit haben, opti- 
mierende Eingriffe und Änderun- 
gen an seinem Programm vorzuneh- 
men. Zu diesem Zweck eignet sich 
ein editierfähiger Code natürlich 
eher, als der »Spaghetticode« in ei- 
nem fertig compilierten Programm. 

Durch diese sehr positive Eigen- 
schaft des Programms angeregt, 
geht man erneut an die Arbeit, aber 
— wo ist der Ässembler? 

Es stellt sich heraus, daß der As- 
sembler nicht im Lieferumfang des 
BASS enthalten ist; er muß extra be- 
sorgt werden. Wie im Handbuch 
empfohlen, beschafft man sich also 
das Assemblerpaket ASSI von Dirk 
Zabel (siehe Assembler-Test in Aus- 
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gabe 1/85), um endlich ein fertiges 
Compilat zu erhalten. 

Den gewohnten Richtlinien fol- 
gend kopiert man das Testpro- 
gramm EDDI auf eine leere Disket- 
te. Aber es müssen noch einige 
Handgriffe ausgeführt werden, bis 
das Programm endlich fertig compi- 
liert sein wird. Zuerstmuß noch eine 
Bibliothek auf die Programmdisket- 
te kopiert werden, die der Ässem- 
bler benötigt, und dann kann es 
endlich losgehen. Da BASS, wie 
schon erwähnt, ziemliche Ausmaße 
besitzt, lag es natürlich nahe, einmal 
Hypra-Load heranzuziehen, und sie- 
he da — BASS arbeitet mit Hypra- 
Load einwandfrei zusammen, was 
die Compilierzeit insgesamt erheb- 
lich verkürzt. 

Trotz aller dieser »Vorabhandgrif- 
fe« entpuppt sich der BASS als Lang- 
weiler. Für das reine Compilieren 
von EDDI benötigte er 7,10 Minuten. 
Das nachfolgende Assemblieren 
benötigt noch einmal neun Minuten, 
so daß man insgesamt mindestens 
eine halbe Stunde beschäftigt ist (al- 
les eingerechnet). 

EDDI wird von BASS einwandfrei 
verarbeitet; der Fehler in Zeile 1070 
wurde jedoch während der Compi- 
lation nicht entdeckt. Er wurde erst 
vom Assembler registriert und äu- 
Berte sich in einem »UNDEFINED 
SYMBOL ERROR«. Auch in diesem 
Fall wurde die Arbeit jedoch ord- 
nungsgemäß zu Ende geführt. 


Der Exbasic 
Level II-Compiler 


Der Exbasic Level I-Compiler 
von Interface Age machte bei Erhalt 
der Lieferung wieder einen ganz 
anderen Eindruck als der BASS. 
Diese beiden Compiler sind dabei 
fast identisch. Was den Namen die- 
ses Compilers betrifft, so erscheint 
er vielleicht etwas irreführend. Der 
Exbasic Level II-Compiler hat mit 
Exbasic Level II ebensoviel oder 
ebensowenig zu tun, wie fast alle an- 
deren Compiler dieses Tests auch. 

Der Name soll eine Eigenschaft 
dieses Compilers verdeutlichen, 
die Austro-Speed und BASS jedoch 
ebenso besitzen: die Verarbeitung 
von Erweiterungen (sogenannte Ex- 
tensions). 

Das heißt nichts weiter, als daß 
diese Programme in der Lage sind, 
auch Befehle, die im Standard-Basic 
V 2.0 von Commodore nicht vorkom- 
men, zu verarbeiten. Wenn diese 
Compiler zum Beispiel aufeinen Be- 
fehl des Exbasic Level II stoßen, so 
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wird dieser Befehl nicht compiliert, 
sondern im non-compiled-Code an- 
gelegt. Wird ein so compiliertes 
Programm jetzt zum Beispiel unter 
Exbasic gestartet, so übergibt das 
Steuerprogramm, das jedes Compi- 
lat enthält, den entsprechenden Be- 
fehl einfach dem Interpreter zur 
Ausführung und macht anschlie- 
ßend weiter. 

Der Unterschied zwischen dem 
Exbasic Level II-Compiler und BASS 
besteht lediglich in der Dicke des 
Handbuchs, im Preis und in der Tat- 
sache, daß der Exbasic-Compiler 
um den notwendigen Assembler er- 
weitert wurde. Auf der Diskette er- 
kennt man das an Pass 3 und Pass 4, 
die der BASS nicht besitzt. 

Im Test zeigte der Exbasic-Com- 
piler demzufolge auch die gleichen 
Eigenschaften wie der BASS, aufdie 
ich gleich noch zu sprechen komme. 

Das Compilieren und Assemblie- 
ren wird vom Exbasic Level II-Com- 
piler um einiges schneller erledigt, 
als von BASS. Außerdem spart man 
sich das Kopieren der Bibliothek. 
Für EDDI wurde eine Zeit von 12 Mi- 
nuten gemessen, was jedoch immer 
noch viermal so lang ist, wie beim 
Austro-Speed. Durch das jeweilige 
Nachladen der einzelnen Pro- 
grammteile ergibt sich außerdem 
noch zusätzlich ein viermaliger Dis- 
kettenwechsel. 

Da der BASS- und Exbasic Level 
II-Compiler nahezu identisch sind, 
soll auch gleich einmal auf die nega- 
tiven Seiten der beiden Programme 
eingegangen werden. 

Wie Sie vielleicht wissen, kann 
man im Commodore-Basic sowohl 
mit Fließkomma- als auch mit Inte- 
gerwerten rechnen. Der Unter- 
schied zeigt sich in den Variablen- 
namen, wobei die Integervariablen 
durch ein »%« am Ende gekenn- 
zeichnet sind. Die Integerarithmetik 
läßt nur Zahlenbereiche von 
— 32768 bis 32767 zu; hat aber da- 
durch den Vorteil, daß weniger 
Speicherplatz und geringerer Zeit- 
aufwand beim Rechnen mit diesen 
Werten erforderlich ist. Im Gegen- 
satz zu Fließkommawerten benöti- 
gen Integerzahlen normalerweise 
nur 2 Byte Speicherplatz pro Wert; 
das sind 3 Byte weniger als bei 
Fließkommaberechnungen. 

Das Commodore-Basic hat jetzt 
den Nachteil, daß keine Integerrou- 
tinen existieren, die die Berechnun- 
gen durchführen. Alle Zahlen wer- 
den deshalb zuerst ins Fließkomma- 
format umgewandelt und dann ver- 
rechnet. Anschließend konvertiert 
der Interpreter diese Werte wieder 
zurück. 


Alle Vorteile, die die Integerzah- 
len also haben, werden durch den 
Interpreter zunichte gemacht. Die 
Entwickler von Compilern haben 
dieses Manko sehr wohl erkannt, 
und deshalb sind alle getesteten Pro- 
dukte auch mit eigenen Integerrou- 
tinen ausgestattet, die einen enor- 
men Zeitgewinn versprechen. Es ist 
somit möglich, auch beim Interpre- 
ter verbotene Konstruktionen, wie 
eine Integerschleife, zu verwenden. 
FOR X% = 0 TO 1000 : NEXT X% 
ist zum Beispiel beim Interpreter 
nicht gestattet und wird mit einem 
»SYNTAX ERROR« auittiert. 

Oben wurde schon auf Nachteile 
vom BASS- und Exbasic Level II- 
Compiler hingewiesen. Bei diesen 
beiden Produkten gibt es eine sol- 
che Konstruktion ebenfalls nicht. 
Hier muß man alle Variablen, die 
man als Integer verwenden möchte, 
mit direkten Befehlen an den Com- 
piler als solche vordefinieren. 

Als weiterer Minuspunkt zeigte 
sich bei diesen beiden Produkten 
die »Intoleranz« gegenüber der Syn- 
tax von Programmen. 

Bei Basic-Programmen ist es üb- 
lich, eine Dimensionierung von Va- 
riablen, sofern das Feld nicht mehr 
als elf Elemente benötigt, zu unter- 
lassen. Der Interpreter übernimmt 
diese Dimensionierung automa- 
tisch. Bei besagten beiden Compi- 
lern ist dies jedoch nicht der Fall 
und führt während des Compilie- 
rens zu einer Fehlermeldung in 
Form einer Nummer. Da diese bei- 
den Compiler jedoch mit einer Fülle 
an Fehlermeldungen ausgestattet 
sind, erwies es sich bei dem 
Exbasic-Compiler als äußerst nach- 
teilig, daß er keinen Fehlertext, son- 
dern nur die Nummer der Meldung 
ausgibt. Wie es sich zeigte, enthält 
das Handbuch zwar eine Aufstel- 
lung aller Fehlermeldungen; diese 
aber wiederum ohne Nummer (im 
Gegensatz zum BASS), so daß man 
spekulativ schon sehr auf Zack sein 
muß, um zu erfahren, was für ein 
Fehler denn nun beanstandet 
wurde. 


Auch das oft übliche Belegen ei- 
ner Zeile miteinem Doppelpunkt »:«, 
um ein Programm lesbarer zu ge- 
stalten, wurde nicht toleriert und 
führte zu einer Fehlermeldung. 

Insgesamt also eine Reihe von 
Nachteilen, die einem die Arbeit mit 
einem Compiler sicherlich schwe- 
rer machen, zumal wiran den ande- 
ren Testkandidaten feststellen konn- 
ten, daß es auch anders geht. 
Austro-Speed ist syntaktisch sehr 
großzügig. Das einzige, was er und 
Petspeed nicht vertragen, sind ver- 
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198 INFUT"WIEVIEL WERTE";O1 <D44> S18 B4=TI <195> 
28 DIM FF$(128D) <892> 5287 REM -=—————— —— ne ne = een <231> 
38 T1=TI <242> 559 K=B <B55> 
48 FOR I=1 TO 01 <251> 5498 K=K+1 <B65> 
SD FF&(CI)=CHR$ (INT (RND (B) #26+64)) <176> S5Q A=K/2*35+4-5 <226> 
68 NEXT <198> 568 GOSUB 508 <885> 
78 T2=TI <927> 579 IF K21998 THEN 548 <198> 
BB GOSUB 9758 <121> Se BS=TI <812> 
98 T3=TI <948> 590 GOTO 528 <113> 
188 PRINT:PRINT <208> £0B RETURN <232> 
118 FOR I=1 TO 01 <B65> 61 DERE MI a <Q&&> 
128 PRINT FF#$(T);z <158> 629 K= <155> 
158 NEXT <994> 638 K=K+1 <155> 
148 T4=TI <099> 640 A=K/2#3+4-5 <B6B> 
158 GOSUB 358 <185> 658 GOSUB 718 <177> 
158 PRINT:PRINT <812> 6658 FOR L=1 TO 5 <831> 
178 PRINT"ANZAHL WERTE= "Q1:FRINT <@94> 678 NEXT L <119> 
188 PRINT"EINLESEZEIT={SSPACE}"(T2-T1)/6&B <B41> &89 IF K<1B28 THEN 638 <a52> 
198 PRINT"SORTIERZEIT={SSPACE}" (T3S-T2)/6B <B88> 6989 Bö=TI <123> 
288 PRINT"ANZEIGEZEIT={3SPACEI" (T4-T3)/6QB <B65> 788 GOTO 758 <225> 
218 PRINT"GESAMT ZEIT={3SFPACE}" (T4-T1)/6Q <QB5> 712 RETURN <886> 
215 PRINT:FRINT <a67> 720 REM 7-7 <177> 
228 PRINT"BENCHI (SSPACE}= SSPACE}Y" (B1-BB) /68 725 DIM M(19) <@92> 
<123> 738 K=® <a99> 

238 PRINT"BENCH2 {SSPACE}={SSPACE}Y” (B2-B1) /68 748 K=K+1 <289> 
<136> 758 A=K/2#3+4-5 <178> 

248 PRINT"BENCH3{SSPACE}={SSPACE}I" (B5-B2) /6B 768 GOSUB 858 <934> 
<149> 778 FOR L=1 TO 5 <142> 

258 PRINT"BENCH4 <SSPACEI=XSSPACE}" (B4-B3) /&D 788 M(L)=A <236> 
<162> 798 NEXT L <251> 

268 PRINT"BENCHS<SSPACE}={3SPACE}" (BS-B4) /69 898 IF K<1822 THEN 748 <143> 
<176> 81BD B7=TI <245> 

278 PRINT"BENCHE {SSPACEY= (3SFPACE}" (B&ö-B5) /68 828 GDTO 8598 <993> 
<189> 858 RETURN <207> 

288 PRINT"BENCH? {5SPACE?= {SSPACE}" (B7-B6) /68 BABEREM = Bee <B43> 
<202> 850 K=B <13580> 

298 PRINT"BENCHB{SSFACE)I= {SSPACE}" (BS-B7) /60 859 K=K+1 <130> 
<215> 878 A=Kt2 <135> 

308 PRINT"GESAMT ZEIT={SSPACE})" (BS-T1)/6B <B892> 889 B=LOG(K) <191> 
318 IF F=1 THEN PRINT:PRINT:PRINT:PRINT:PRINT#1 898 C=SIN(K) <205> 
:CLOSE 1:END <198> 702 IF K<19802 THEN 848 <9822> 
328 DPEN 1,4:CMD 1:F=1:60T0 178 <955> 918 BB=TI <B98> 
3305 REM en en <198> 728 RETURN <841> 
348 REM BENCHMARKS <194> 938 :REM == _ <877> 
358 REM-—----------------- 1---—-—— <222> 948 REM — UF SORTIEREN - <248> 
368 REM <248> 958 REM —--------------- <997> 
378 BB=TI <852> 968 REM - Di = ANZAHL ELEMENTE — <120> 
388 FOR K=1 TO 19208 <145> 978 REM - FF$() = SORTIERFELD - <a55> 
398 NEXT K <984> 98B REM -------------—- <127> 
408 Bi=TI <283> 998 : <827> 
419 REN -——— 2-—— —— <117> 19880 REM JJ,LL = LAUFVARIABLE <125> 
428 K= <218> 19018 REM Q2# = ZWISCHENSPEICHER <B858> 
430 K=K+1 <219> 1928 : <857> 
440 IF K<1080 THEN 438 <965> 10858 REM SORTIERT DAS FELD FF$ MIT <162> 
458 B2=TI <134> 1048 REM Q1 ELEMENTEN IN ALPHABE -— <115> 
RS TE RE MEZ gene en ra ne <159> 1058 REM TISCHER FOLGE <944> 
452 K=® <242> 1068 : <Q978> 
453 K=K+1 <233> 19878 FOR JJ=1 TO 81-1 <B44> 
454 A=K/K#K+K-K x223> 1088 FOR LL=JJ+1 TO Q1 <156> 
455 IF K<1988 THEN 453 <885> 1898 IF FFE(III<=SFFSCLLITHEN 1138 <208> 
456 BS=TI <141> 1108 Q2$#=FF#(JJ) <B62> 
AEBHRENZ—S TS nn An <169> 1118 FF&$(JJ)=SFF$(LL) <B58> 
478 K=8 <294> 1128 FFF(LL)=02$ <B8&> 
488 K=K+1 <094> 1158 NEXT LL <1356> 
498 A=K/2*53+4-5 <165> 1148 NEXT JJ <142> 
528 IF K<190908 THEN 4858 <158> 1158 RETURN <B16> 


Listing 1. Die in Tabelle 2 zusammengefaßten Ergebnisse wurden mit diesem Programm ermittelt. Die Zeit für zum Bei- 
spiel 1000 GOSUB-RETURN erhält man, indem die Zeit für Benchmark 4 von der Zeit für Benchmark 5 abgezogen wird. 


schachtelte MID$-Statements, die 
man aber generell bei der Arbeit 
mit Compilern vermeiden sollte. 

Was angenehm überrascht, ist die 
Tatsache, daß Austro-Speed sogar 
die variable Dimensionierung (zum 
Beispiel DIM A (B), zuläßt. Eine ei- 
gentlich gar nicht selbstverständli- 
che Eigenschaft, da Compiler auf 
das feste Anlegen von Variablenfel- 
dern angewiesen sind und somit de- 
ren Ausmaße beim Compilieren 
feststehen müssen. 


Doch nun zum Petspeed, dessen 
Lieferumfang aus drei Blättern 
Druckerpapier und einer Diskette 
bestand. Das »3-Blatt-Handbuch« 
strotzt nur so von Fehlern und macht 
einen gleich einmal auf eine nette 
Überraschung gefaßt. Das Directo- 
ry der beigefügten Diskette ıst nur 
über Spezialprogramme zu listen. 
Dieser (unnötige) »Scherz« hätte un- 
ter normalen Umständen sicher 
nichts ausgemacht. DasSonderbare 
an Petspeed ist nur, daß man sein 


Basic-Programm auf die Systemdis- 
kette kopieren muß, damit der Com- 
piler arbeiten kann. Aus diesem 
Grund hat mich dieser »Gag« ziem- 
lich verärgert, daer die Möglichkeit 
eines Bedienungsfehlers geradezu 
herausfordert. 

Hat man auch hier EDDI in die 
compilierfähige Form gebracht, so 
kann es losgehen. Der Petspeed ist 
ein 4-Pass-Compiler, was schon ein- 
mal gewisse Erwartungen bezüg- 
lich der Leistung weckt. 
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Nach 7 % Minuten ist die Arbeit an 
EDDlabgeschlossen, und wir erhal- 
ten, wie schon bei Austro-Speed, 
zwei Programm-Files zurück. Eines 
der beiden Programme ist dabei 
wieder eine Korrekturerleichte- 
rung, die alle vorhandenen Zeilen- 
nummern mit deren neuen Adres- 
sen enthält. 


Der Petspeed-Compiler 


Petspeed ist also beim Compilie- 
ren hinter Austro-Speed der zweit- 
schnellste Compiler dieses Tests. 
Der einzige Nachteil besteht in der 
Tatsache, daß das zu compilierende 
Programm auf die Systemdiskette 
kopiert werden muß. Erstens ist da- 
mit die Wahrscheinlichkeit einer 
Panne mit der Originaldiskette grö- 
Ber, und zweitens wird der Platzzum 
Compilieren ganz erheblich einge- 
schränkt, da Petspeed schon über 
200 Blöcke für sich beansprucht. So 
darf das zu übersetzende Basic- 
Programm auch nicht länger als 80 
Blocks sein. 

Sieht man sich die Gesamtlänge 
der vier Compilate aller Compiler 
an, so erkennt man, daß sich BASS-, 
Exbasic Level Il-Compiler und 
Austro-Speed in etwa entsprechen. 
Petspeed hat mit Abstand das läng- 
ste File hinterlassen, was sich auch 
bei der weiteren Ärbeit mit diesem 
Compiler immer wieder zeigen 
wird. 

Sie werden jetzt natürlich ge- 
spannt auf die Ergebnisse des Com- 
pilierens sein. Was ist eigentlich aus 
dem einstmals so langsamen Basic- 
Programm geworden? 

Nun, ich will Sie nicht länger auf 
die Folter spannen. Allerdings habe 
ich zum Zeitvergleich nicht EDDI 
herangezogen, obwohl sich das Er- 
gebnis (bei rückblickender Be- 
trachtung) nicht verändert hätte. Es 
wurde ein Programm erstellt, in 
dem systematisch ein paar Befehls- 
gruppen abgefragt wurden, um die 
Geschwindigkeit in verschiedenen 
Bereichen vergleichen zu können. 

Das Ergebnis der Messungen se- 
hen Sie in der Zusammenfassung in 
Tabelle 1 und 2. Es zeigt sich ganz 
deutlich, daß Petspeed (obwohl der 
»Oldtimer« dieses Tests) der eigent- 
liche Testsieger ist. Er hat in fast al- 
len Bereichen die Nase vorne und 
erreicht Geschwindigkeiten, von 
denen seine Konkurrenten nur träu- 
men können. 

Unser Testprogramm absolvierte 
er beispielsweise in 145 Sekunden. 
Das Original unter dem Interpreter 
benötigt noch 391 Sekunden. Mit 
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großem Abstand folgt dann erst ein- 
maldas Compilat von Austro-Speed. 
Es erreicht immerhin eine Zeit von 
173 Sekunden und ist damit um fast 
20 Prozent langsamer als Petspeed. 

Enttäuscht hat in diesem Test der 
Exbasic Level II-Compiler. Einmal 
davon abgesehen, daß er schon ei- 
ne Reihe anderer Schwächen aufzu- 
weisen hatte, bildete er noch zusätz- 
lich in diesem Geschwindigkeitstest 
das Schlußlicht miteiner Zeit von 198 
Sekunden. 

Der BASS-Compiler ist zwar ge- 
nauso schnell oder langsam wie der 
Exbasic-Compiler (198 Sekunden), 
er hat aber immer noch den Vorteil 
seines positiven Konzepts, des be- 
dienerfreundlichen Compilats, was 
zumindest Maschinensprach-Spe- 
zialisten zu schätzen wissen dürften. 

BASS überholt Austro-Speed le- 
diglich bei der Übersetzung von PO- 
KEs und PEEKs. Dieser Unterschied 
ist jedoch sehr gering und kann an 
dem Gesamtergebnis nichts än- 


dern. 
Fazit 


Fangen wir mitdem Exbasic Level 
II-Compiler an. Dieses Produkt 
konnte in wesentlichen Punkten 
nicht überzeugen. Einige dieser 
Gründe sind mit Sicherheit darin zu 
sehen, daß dieser Compiler nur die 
um einen Assembler erweiterte Ver- 
sion des BASS ist, wobei jedoch die 
relativ schwache Leistung des BASS 
noch durch die verlorengegange- 
nen positiven Eigenschaften dieses 
Programms verstärkt wurde. Der 
BASS ist zwar langsam, aber sein 
Vorteil liegt im offenen Konzept des 
erzeugten Codes. Damit hat der Be- 
nutzer die Möglichkeit, auch beim 
Compilat noch leicht Änderungen 
vorzunehmen. Zu diesem Zweck ist 
BASS sehr umfassend dokumen- 
tiert, im Gegensatz zum Exbasic Le- 
vel II-Compiler. 

Die Nachteile beider Compiler 
waren aber die »pingeligen« An- 
sprüche an die Syntax deszu compi- 
lierenden Programms. Ein Anwen- 
der, der mit Compilern arbeitet, 
möchte in der Regel ein älteres Pro- 
gramm ohne große Änderungen am 
Original schnell compilieren, kön- 
nen. Das ist aber ohne große Ände- 
rungen bei diesen beiden Compi- 
lern fast nicht möglich. 

Als Kaufempfehlung kann hier al- 
so höchstens BASS gelten (198 
Mark). Dieser Compiler ist jedoch 
nichts für Anfänger und für Anwen- 
der, die sich einen Compiler nur 
zum bequemen »Hochpuschen« von 
Basic-Programmen zulegen. Der 








Exbasic Level II-Compiler ist allein 
schon seines hohen Preises wegen 
(298 Mark) gemessen an den Lei- 
stungen, nicht ohne Vorbehalt zu 
empfehlen. Er besitzt keine heraus- 
ragenden Vorzüge und könnte bei 
weniger erfahrenen Programmie- 
rern schnell ein falsches Bild von 
Compilern hervorrufen. 

Das Nachladen von Programmen, 
sogenanntes Overlay, machte beial- 
len Compilern dieses Tests (infolge 
der Variablenorganisation) Schwie- 
rigkeiten. Das im Interpretermodus 
mögliche Nachladen von Program- 
men mit Variablenübergabe (Warm- 
Overlay) ist in der Regel mit den 
Compilern nicht möglich. Hier muß 
man normalerweise eine Speicher- 
stelle als Flag (beim Nachladen 
mehrere Programme) benutzen, da 
die Variablen durch das Nachladen 
gelöscht werden (Kalt-Overlay). 

Am großzügigsten bei der Änaly- 
se von Programmen zeigte sich der 
Austro-Speed. Er war beim Compi- 
lieren mit Abstand der Schnellste. 
Die Endgeschwindigkeit des Com- 
pilats ist zwar nicht mit der des Pet- 
speed vergleichbar; es zeigt sich je- 
doch deutlich, daß dieser Compiler 
die wenigsten Probleme aufwirft, zu- 
mal seine Bedienung ein wahres 
Kinderspiel ist. Er »verdaut« die mei- 
sten Programme ohne Schwierigkei- 
ten und zeigt sich auch in der An- 
wendung sehr vielseitig, da er so- 
wohl mit einem, als auch mit mehre- 
ren Floppy-Laufwerken zusammen- 
arbeitet. Der Preis vom Austro- 
Speed ist mit dem von Exbasic Level 
II-Compiler identisch (298 Mark); 
hätte man also die Wahl zwischen 
beiden, so dürfte die Entscheidung 
nicht allzu schwer fallen. 

Sehr viel fürs Geld bekommt man 
mit Petspeed ins Haus geschickt (149 
Mark). Dieser Compiler übertraf al- 
le Erwartungen und zeigte sich auch 
in der Bedienung recht einfach. Die 
zweinegativen Aspekte dürften hier 
wohl die unzureichende Literatur 
und das notwendige Kopieren des 
Basic-Programms auf die Systemdis- 
kette sein. Wenn man aber einmal 
die 149 Mark sieht, die der Petspeed 
kostet, sozeigt sich dennoch ein her- 
vorragendes Preis/Leistungsver- 
hältnis, das von keinem Compiler 
des Tests erreicht wurde. In den Ta- 
bellen finden Sie zur besseren 
Orientierung noch einmal alle Test- 
Ergebnisse zusammengefaßt. 

(Karsten Schramm/gk) 


Bezugsadressen und Info: 

BASS: gmbsoft, Kaiser-Fnednch Rıng 55, 6200 Wiesbaden 
Austro-Speed (AustroComp): Commodore, Lyoner Str. 38 
8000 a em und für Österreich: Digimat, Arbeiter- 
gasse 48, 1050 W: 

Ex-Basıe-Compiler ı Interface Age, Vohburger Str. 1,8000 
München 21 

Petspeed: Infotronik, Birkenstr. 40, 4100 Duisburg 
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Geschwindigkeit durch 
arbeiten 


Jo 


Meschinencode - 


Programme komfortabel in Basic schreiben, aber mit der Geschwindigkeit von 
Maschinensprache ausführen lassen — Compiler machen’s möglich. 


sistschon erstaunlich. Da gibtes 
Programme, die andere Pro- 
gramme als Eingabedaten ver- 
wenden und diese in reinen Maschi- 
‚nencode übersetzen, der von der 
CPU direkt ausgeführt werden 
kann. Das ist durchaus von Vorteil: 
Basic-Programme sind nämlich 
einfach zu schreiben, aber langsam 
in der Ausführung. Maschinenspra- 
che ist dagegen sehr schnell, aber 
schwierig zu programmieren. Com- 
piler bilden praktisch die Brücke 
zwischen den beiden grundsätzli- 
chen Anforderungen nach einfa- 
cher Programmerstellung und ho- 
her Ausführungsgeschwindigkeit. 
Auf den ersten Blick drängt sich 
der Vergleich mit einem Assembler 
auf, der ja auch in Klartext gegebe- 
ne Befehle in Maschinencode über- 
setzt. Doch der Vergleich hinkt, 
denndie Aufgabe eines Assemblers 
ist vergleichsweise trivial. Zu jedem 
Klartextbefehl (Mnemonic) wie zum 
Beispiel LDA gibt es nämlich genau 
einen Opcode Der Assembler 
macht daher im wesentlichen nichts 
anderes, als in einer zweispaltigen 
Tabelle das Mnemonic zu suchen 


und bei Erfolg aus der zweiten Spal- 
te den zugehörigen Opcode zu ent- 
nehmen. Zwischen Assembler-Mne- 
monic und erzeugtem Maschinen- 
code besteht also ein Verhältnis eins 
zu eins. 

Bei sehr maschinennahen Befeh- 
len wie beispielsweise beim Basic- 
Befehl GOTO hat es der Compiler 
ähnlich einfach: »GOTO (Zeilennum- 
mer)« würde von einem 6502-Basic- 
Compiler übersetzt in »JMP (Adres- 
se)«. Bei Befehlen wie »IF X=A+3 
THENZ=S5«wird dieSacheschon et- 
was komplizierter. Eine solche An- 
weisung kann allein schon deshalb 
nicht direkt übersetzt werden, weil 
der 6502-Prozessor keinen Maschi- 
nenbefehl »IF« kennt. 

Hier muß der Compiler also we- 
sentlich mehr leisten, als nur Opco- 
des zu bestimmten Schlüsselwör- 
tern herauszusuchen. In der Regel 
entspricht einem Befehl in einer hö- 
heren Programmiersprache eine 
ganze Befehlssequenz auf der Ma- 
schinenebene. Die Aufgabe eines 
Compilers wird daher mit Recht als 
Übersetzung statt Assemblierung 
(Zusammenfügung) bezeichnet. 





Befehl Bedeutung 

LITn Konstante n auf Stack legen 

RCLx Inhalt der Variablen x auf Stack legen 

sSTOx obersten Stapelwert nach x speichern 

ADD die obersten beiden Stapelwerte addieren 
SUB die obersten beiden Stapelwerte subtrahieren 
MUL die obersten beiden Stapelwerte multiplizieren 
DIV die obersten beiden Stapelwerte dividieren 
JMPa unbedingter Sprung zur Ädresse a 

JEQa Sprung, falls oberstes Stapelelement Null 
JINEa Sprung, falls oberstes Stapelelement nicht Null 
JGEa Sprung, falls oberstes Stapelelement positiv 
JLTa Sprung, falls oberstes Stapelelement negativ 
JSRa Unterprogrammaufruf 

RTS Rückkehr vom Unterprogramm 

SQR Quadratwurzel aus oberstem Stapelelement 
SIN Sinus des obersten Stapelelements 

COS Cosinus des obersten Stapelelements 

TAN Tangens des obersten Stapelelements 

ATN Arcustangens des obersten Stapelelements 
LOG Logarithmus des obersten Stapelelements 
EXP Exponentialfunktion des obersten Stapelelements 


Ancmaha 2 /Fahmar 1095 


Tabelle 1. Typische Befehle eines einfachen Zwischencodes 


Übersetzt wird immer aus einer 
höheren Programmiersprache (bei- 
spielsweise Basic) in eine maschi- 
nennahe »Sprache«, meistens direkt 
in Maschinencode. Einer Program- 
miersprache liegt — wie auch jeder 
natürlichen Sprache — ein Vokabu- 
lar und eine Grammatik zugrunde. 


Auf die Grammatik 
kommt es an 





Vokabeln der Sprache Basic sind 
zum Beispiel GOTO, PRINT, DATA, 
aber auch Zahlen und Variablenna- 
men gehören dazu. Daneben gibt es 
bestimmte »Satzzeichen« wie »=«, »« 
etc. 

Eine Grammatik ist ja nichts ande- 
res als eine Menge von Regeln, die 
angeben, wie aus den zur Verfü- 
gung stehenden Zeichen und Wör- 
tern korrekte »Sätze« gebildet wer- 
den. Folgende drei Regeln bilden 
zum Beispiel eine einfache Gram- 
matik: 

Regel 1: Ein Satzbestehtauseinem 
Subjekt, gefolgt von einem Prädikat. 

Regel 2: Ein Subjekt ist eines der 
Worte HUNDE, COMPUTER, MEN- 
SCHEN. 

Regel 3: Ein Prädikat ist eines der 
Worte LESEN, RECHNEN, BELLEN, 
SCHLAFEN. 

In der sogenannten Backus-Naur- 
Form, die zur Definition der Pro- 
grammiersprache Algol entwickelt 
wurde, lassen sich die drei Regeln 
kürzer und eindeutiger darstellen: 
1. (Satz) ::= (Subjekt) (Prädikat) 





Tabelle 2. Beispiele zur Übersetzung von Basic 
in Zwischencode 


aka Qa 


Software-Grundlagen 


C 64 





2. (Subjekt) ::= HUNDE I COMPU- 
TER IMENSCHEN 

3. (Prädikat) ::= LESEN IRECHNEN 
I BELLEN ISCHLAFEN 

In spitzen Klammern stehen dabei 
immer Verweise aufandere Regeln, 
die senkrechten Striche trennen 
verschiedene Alternativen. 

Mit dieser Grammatik können 
durch einfache Anwendung der Re- 
geln Sätze erzeugt werden wie 
»HUNDE BELLEN« oder »MEN- 
SCHEN LESEN« und einige mehr. 

Nach Regeln dieser Art ist auch 
die Basic-Grammatik aufgebaut. 
Um alle syntaktisch korrekten 
Sprungbefehle zu beschreiben, ge- 
nügen folgende Regeln: 

1. Sprungbefehl) ::= GOTO (Zeilen- 
nummer) 

2. (Zeilennummer) ::= {(Ziffer)) 

3. (Ziffer) ::= 0111213141516171819 

Regel l bestimmt, daß ein Sprung- 
befehl aus dem Schlüsselwort GO- 
TO, gefolgt von einer Zeilennum- 
mer, besteht. Regel 2 besagt, daß ei- 
ne Zeilennummer aus einer Folge 
von Ziffern besteht (die geschweif- 
ten Klammern deuten die Wieder- 
holung an). Regel 3 schließlich defi- 
niert, was eine Ziffer ist. Bleibt noch 
zu bemerken, daß eine Zeilennum- 
mer 999999 zum Beispiel syntaktisch 
richtig ist, aber aus anderen Grün- 
den nicht zulässig ist. 

Häufig werden anstelle der 
Backus-Naur-Form Syntax-Graphen 


als anschaulichere Art der Darstel- 
lung gewählt. Bild 1 zeigt den An- 
fang einer syntaktischen Definition 
des allgemeinen Begriffes »Basic- 
Programm«, und zwar die ersten 
drei Regeln. Die Diagramme wer- 
den grundsätzlich von links nach 
rechts gelesen, jede andere Rich- 
tung muß durch entsprechende 
Markierungen angegeben werden. 

Regel l aus Bild | besagt, daß ein 
Basic-Programm zunächst aus einer 
Programmzeile besteht. Dann kann 
entweder bereits Schluß sein, oder 
aber eine weitere Programmzeile 
folgen und so fort. Regel 2 definiert 
den Begriff der Basic-Zeile, beste- 
hend aus Zeilennummer und einer 
Anweisung, worauf ein Doppel- 
punkt und eine Anweisung etc. fol- 
gen können. 

Was hat das Ganze nun mit Compi- 
lern zu tun? Sehr viel, denn eigent- 
lich sind wir schon mittendrin im 
Thema. Jeder Compiler verfügt 
nämlich über einen sogenannten 
»Parser«, ein wichtiges Teilpro- 
gramm, das die syntaktische Analy- 
se übernimmt. Dazu ist es notwen- 
dig, daß der Parser die Syntax ge- 
nau »kennt«. Das sieht dann so aus, 
daß der Parser bei der Programm- 
analyse bildlich gesprochen den Li- 
nien der Syntax-Diagramme folct. 
Stößt er dabei auf ein Kästchen mit 
einer Syntax-Regel, dann wird so- 
fort das entsprechende Unterpro- 








Regel 3 


Bild 1. Syntax-Diagramme zur Definition des Begriffs »Basic-Programm« 
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gramm zur Änalyse oder Überset- 
zung dieser Regel aufgerufen. Die 
Eingabe für den Parser ist also der 
Programm-Quelltext, als Ausgabe 
liefert er einen Zwischencode, also 
eine Art vor-übersetztes Programm. 

Bei diesem Zwischencode han- 
deltessich in der Regel — man höre 
und staune — um den Maschinenbe- 
fehlssatz eines Computers, den es 
gar nicht gibt. Tabelle 1 zeigt, wie 
der Befehlssatz eines solchen hypo- 
thetischen Computers aussehen 
könnte. Natürlich erzeugt der Com- 
piler intern nicht die ASCII- 
Zeichenfolge für diese Befehle, son- 
dern legt jeden Befehl in einem Byte 
codiertab. Ein solches oft als »Token« 
bezeichnetes Byte ist im folgenden 
immer gemeint, wenn von einem 
vom Compiler erzeugten Zwischen- 
code die Rede ist. 

Intern arbeitet der »Ghost- 
Computer«, dessen Befehlssatz ge- 
rade der Zwischencode ist, mit ei- 
nem Stack, wie er jedem Forth- 
Programmierer, aber auch jedem 
Benutzer von Hewlett-Packard-Ta- 
schenrechnern vertraut sein dürfte. 
Diesen Rechenstack kann man sich 
bildlich als Papierstapel vorstellen. 
Während der Berechnung eines 
mehr oder minder komplizierten 
arithmetischen Ausdrucks können 
Zettel mit Zwischenergebnissen auf 
den Stapel gelegt oder aber von 
oben weggenommen werden. 

Natürlich kann man mit den Befeh- 
len aus Tabelle 1 arithmetische Aus- 
drücke nicht in der gewohnten 
Schreibweise berechnen, sondern 
es muß zuvor eine Umwandlung in 
die sogenannte »umgekehrte polni- 
sche Notation« (UPN) erfolgen. Ein 
Ausdruck wie »2 + 3x 5« würde bei- 
spielsweise folgenden Zwischenco- 
de ergeben (Stackinhalt in Klam- 
mern): 


LIT2 (2) 
LIT3 (2,3) 
RCLX (2,3,5) 
MUL (2,15) 
ADD (2 


Diese Übersetzung in Zwischen- 
code ist nun relativ einfach zu auto- 
matisieren, denn auch für arithmeti- 
sche Ausdrücke gibt es eine Art 
Grammatik, die auch die »Punkt-vor- 
Strich« - Regel berücksichtigt (Bild 
2). Der Compiler »kennt« diese Re- 
geln und wendet sie an. Sobald er 
beispielweise innerhalb einer For- 
mel auf eine Zahl (Konstante) stößt, 
erzeugt er den Zwischencode »LIT 
(Konstante)«, bei einer Variablen 
den Zwischencode »RCL Wariab- 
lenadresse)« und so fort. 
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Software-Grundlagen 





Arithmetischer Ausdruck 








Funktion 


Arithmetischer 
N) Ausdruck 


Bild 2. Syntax-Diagramme zur Auswertung arithmetischer Ausdrücke. Die »Punkt-vor-Strich«- 


Regel ergibt sich aus der Darstellung von selbst. 


Tabelle 2 zeigt einige Beispiele für 
die Übersetzung von Basic- 
Anweisungen in Zwischencode. Na- 
türlich ist der hier vorgestellte Zwi- 
schencode nur ein (unvollständiges) 
Beispiel. Sie sollten daher nicht er- 
warten, daß Ihr Basic-Compiler ge- 
nau diesen speziellen Code er- 
zeugt. 

Ist Ihnen bis hierhin etwas aufge- 
fallen ? In der bisherigen Beschrei- 
bung der Funktionsweise eines 
Compilers wurde weder daraufein- 
gegangen, in welcher Sprache der 
Compiler selbst geschrieben ist, 
und vor allem nicht, für welchen Pro- 
zessor die Übersetzung durchge- 
führt wird. Der Grund dafür ist ein- 
fach: Ein Compiler ist ein Pro- 
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gramm, das einem bestimmten Al- 
gorithmus realisiert. Es ist also völlig 
gleichgültig, in welcher Program- 
miersprache der Compiler ge- 
schrieben wurde. So kann ein 
Pascal-Compiler durchaus in Basic 
geschrieben werden, wenn das aus 
verschiedenen Gründen auch nicht 
besonders sinnvoll wäre. Außerdem 
haben wir bisher auch noch keinen 
wirklichen Maschinencode erzeugt, 
es ist also egal, für welchen Prozes- 
sor die Übersetzung stattfinden soll. 

Einige Compiler belassen es so- 
gar bei diesem Zwischencode. Es 
wird dann ein spezielles Interpre- 
terprogramm benötigt, das diesen 
Zwischencode interpretiert eRun- 
Time-Modul«. Derartige Compiler 


sind besonders bei 8-Bit-Computern 
verbreitet, da der Zwischencode 
sehr kompakt ist (ein Byte pro Be- 
fehl). Nachteilig ist natürlich, daß 
dieser Code immer noch interpre- 
tiert werden muß, wenngleich das 
wegen der sehr einfachen Struktur 
recht schnell geht. Derartige 
Zwischencode-Programme sind in 
der Ausführungszeit etwa zwei- bis 
zehnmal so schnell wie Basic, bei 
vermindertem Platzbedarf. Der so- 
genannte »P-Code«, den Pascal- 
Compiler erzeugen, ist übrigens 
ebenfalls ein solcher Zwischenco- 
de. 


Die Erzeugung 
von Maschinencode 


Die Erzeugung von reiner Maschi- 
nensprache aus dem Zwischencode 
ist nun relativ einfach und funktio- 
niert ähnlich wie bei einem Assem- 
bler. Statt des Zwischencodebefehls 
ÄDD wird zum Beispiel bei einem 
6502-System die Befehlsfolge für ei- 
ne 16-Bit-Addition oder auch einfach 
nurder Code für»]JSR ADD« erzeugt. 
Dadurch, daß der so erzeugte Code 
vom Prozessor direkt ausgeführt 
werden kann, ergeben sich sehr 
günstige Ausführungszeiten. Sol- 
cherart compilierte Programme lau- 
fen zwischen zehn- und hundertmal 
schneller alsüber einen Interpreter. 
Allerdings ist der Speicherbedarf 
gegenüber Zwischencodeprogram- 
men in der Regel um etwa das Dop- 
pelte erhöht. 

Interessant ist, daß die unter- 
schiedlichen Eigenschaften der ver- 
schiedenen Prozessoren erst bei 
der Erzeugung von Maschinencode 
aus dem Zwischencode zum Tragen 
kommen. Außerdem hatten wir fest- 
gestellt, daß es egal ist, in welcher 
Sprache ein Compiler geschrieben 
wird. Diese beiden Erkenntnisse ha- 
ben weitreichende Konsequenzen 
beider Entwicklung von Compilern. 


Bootstrapping 


Eine in der Praxis fast immer an- 
gewandte Methode der Compiler- 
entwicklung beruht darauf, den 
Compiler in der Programmierspra- 
che zu schreiben, die er übersetzen 
soll. Ein Basic-Compiler würde da- 
her selbst in Basic geschrieben wer- 
den. 

Der Grund dafür ist einfach: Hat 
man einmal einen (wenn auch noch 
sehr einfachen) in Basic geschriebe- 
nen Basic-Compiler zur Verfügung, 
dann kann dieser Compiler sich 

Fortsetzung auf Seite 163 
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Spiele-Test 


er berüchtigte »Elvin« droht die 
Weltbevölkerung mit Atomwaf- 
# fen zu vernichten. Äls Mitglied 


der Anti-Computer-Terroristen- 
Gruppe sollen Sie »Elvin« ausschal- 
ten. Sie müssen einen Weg durch 
die Räume und Tunnel seines unter- 
irdischen Hauptquartiers finden 
und dabei die Roboterwachen des 
wahnsinnigen Verbrechers überli- 
sten. Sechs Stunden stehen ihnen 
zur Verfügung. Aber Vorsicht! Mit je- 
dem »Ausfall« der Spielfigur verlie- 
ren Sie zehn Minuten. Die Zeit wird 
schnell knapp. 

Suchen Sie nach Hinweisen, um 
das Paßwort zu bekommen, mit dem 
Sie bis zu Elvins Kontrollraum gelan- 
gen. Sie müssen schneller als die 
Wachen sein, sie überspringen 
oder sie mit gefundenen Paßworten 
für kurze Zeit außer Kraft setzen. 

Beijedem neuen Versuch werden 
der Aufbau der Räume und die Fä- 
higkeiten der Roboterwachen geän- 
dert. War ein Raum beim letzten Ver- 
suchnoch leicht zu bewältigen, ister 
vielleicht dieses Mal kaum noch zu 
durchqueren. 


»Impossible Mission« verfügt über 
eine eingebaute Sprachausgabe. 
Gleich am Änfang werden Sie von 
der Stimme »Elvins« begrüßt. Zu die- 
sem Zeitpunkt scheint sich »Elvin« 
noch keine allzugroßen Sorgen über 
Ihr erscheinen zu machen, denn er 
ist der Meinung, Sie würden Ihr Le- 
ben verlieren. 

In den einzelnen Räumen müssen 
Sie versuchen, PuzzleTeile zu fin- 
den. Insgesamt sind 36 Teile ver- 
steckt. Jeweils vier Teile ergeben ei- 
ne Lochkarte, auf der immer ein 
Buchstabe des Paßwortes für den 
Kontrollraum abgespeichert ist. An 
einigen Stellen finden Sie »Hilfspaß- 
worte«. Diese können zwei Funktio- 
nen haben: Die einen dienen dazu, 
die Liftplattformen nach einer Ver- 
änderunginihren ÄAusgangszustand 
zu versetzen. Die anderen machen 
alle Roboterwachen in einem Raum 
für kurze Zeit funktionsuntüchtig. 
Diese Zeit reicht meist aus, um zwei 
Gegenstände in einem Raum zu un- 
tersuchen. 

Es gibtnoch eine andere Möglich- 
keit, um an »Hilfspaßworte« zu kom- 
men. In dem Labyrinth gibt es zwei 
Computerräume, indeneneineKon- 
sole und eine Änzeigetafel unterge- 
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bracht sind. Stehen Sie vor der Kon- 
sole und bewegen den Joystick nach 
vorne, erklingen drei Töne, zu de- 
nen jeweils ein Feld der Änzeigenta- 
fel aufleuchtet. Danach erscheint ei- 
ne mittels Joystick zu steuernde 
Hand, mit der Sie die Felder anfah- 
ren können. Ihre Aufgabe besteht 
darin, die Töne vom tiefsten bis zum 
höchsten nachzuspielen. Dazu müs- 
sen Sie die Hand auf das jeweilige 
Feld positionieren und den Feuer- 
knopf drücken. Haben Sie die richti- 
ge Reihenfolge gefunden wird Ih- 
nen ein »Hilfspaßwort« gqutgeschrie- 
ben, und die Anzahl der nachzu- 
spielenden Töne erhöht sich um 
Eins. Mit ein wenig Geschick kön- 
nen Sie einige Hilfsmittel dazu be- 
kommen. 

Hervorragend ist auch die Anima- 
tion dieses Spieles. Der Spielablauf 
gleicht einem Zeichentrickfilm, nur 
mit dem Unterschied, daß Sie den 
Ablauf steuern. 

Liebhaber von Labyrinth- und Ge- 
schicklichkeitsspielen werden von 
Impossible Mission sicherlich be- 
geistert sein. Dieschwierigen Bilder 
und der sich stets ändernde Aufbau 
verhindern Langeweile. 

Ab Mitte Januar wird Impossible 
Mission (Epyx) auch in Deutschland 
erhältlich sein. Der Preis stand bei 
Redaktionsschluß noch nicht fest. 

(rg) 
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MOESLICHE RICHTUNGEN 





Gordon Saga ist ein 
deutsches Abenteuerspiel 
der Spitzenklasse. 

Selbst einen Vergleich 
mit »Hobbit« oder 
ähnlichen Spielen muß 
es nicht scheuen. 


egeben Sie sich in die Welt der 

großen Abenteuer. Schlüpfen 

Siein.die Rolle eines Höhlenfor- 
schers. Gordon Saga ist der erste, in 
sichabgeschlossene Teileinerdeut- 
schen Abenteuerspiel-Serie Am 
Ende dieses Teils wird Ihnen dann 
die»große Aufgabe gestellt, aufdie 
die folgenden Teile aufbauen. 

Alle Textein- und ausgaben erfol- 
gen in Deutsch. Allein dieser Um- 
stand hebt dieses Spiel von vielen 
anderen, die meist in Englisch ge- 
schrieben sind, ab, Das Spiel akzep- 
tiert sogar ganze Sätze, So könnte ei- 
ne Anweisung zum Beispiel lauten: 
»NIMM DAS SCHWERT UND GEH 
NACH NORDEN«. Wird eine Einga- 
betrotzdesrecht großen Wortschat- 
zes nicht verstanden, so meldet dies 
der Computer. Anweisungen, dieer 
versteht, im Moment aber sinnlos 
sind, ignoriert er. Man kann aller- 
dings, sofern man Lust dazu hat, zum 
Beispiel singen, beten oder warten, 
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MOEGLICHE RICHTUNGEN 
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ohne daß dies den Spielablauf be- 
einflußt. 

Einer der größten Vorzüge dieses 
Abenteuerspiels ist der variable 
Spielverlauf. Wie auch beim »Hob- 
bit« muß man auf Überraschungen 
gefaßt sein. Überall lauern Gefah- 
ren, die Hilfsmittel sind nicht immer 
anden gleichen Stellen zu finden. Je- 
derneue Versuch, dasGeheimniszu 
ergründen, konfrontiert Sie mit neu- 
en Bedingungen. 


Spielspaß zum Sparpreis 


In manchen Situationen wird es 
besonders schwierig. Sie geraten 
unter Zeitdruck. So fällteine Türhin- 
ter Ihnen zu und die Zimmerdecke 
senkt sich oder es rollt eine große 
Steinkugel auf Sie zu. Hier muß der 
Abenteurer schnell und richtig rea- 
gieren, um sein Leben zu behalten. 





Aber die tödlichen Unfälle halten 
sich in Grenzen. Doch kann es leicht 
vorkommen, daß ein Monster gera- 
de das nnötigste Hilfsmittelstiehltund 
irgendwo versteckt. 

Ein niedriger Preis muß nicht im- 
mer ein Hinweis aufschlechte Quali- 
tät sein. So macht sich auf dem deut- 
schen Softwaremarkt ein neuer 
Trend bemerkbar. Qualitativ gute 
Software wird immer häufiger zu ei- 
nem fairen Preis angeboten. So kön- 
nen sich zum einen auch © 64-Besit- 
zer, die nicht über große finanzielle 
Mittel verfügen, gute Programme 
leisten. Zum anderen wird den 
Raubkopierern das Hauptargument 
(der hohe Software-Preis) genom- 
men. Auch dieses Äbenteuerspiel 
kommt mit einem Preis von 39 Mark 
diesem Trend nach. (19) 


Info: Markt und Technik Verlag AG Happy Software, 
Hans-Pınsal-Str 2) 8013 Haar bei München 
Preis-39 Mark 


Anarmaha 2/Pakrırar 10N& 


GC 64 


Spiele-Tips 





Die Lösung von Hobbil 





re, bei dem es darauf ankommt 
einen Schatz zu finden. 

Eine Standard-Lösung dazu ist 
nicht möglich, da sich durch umher- 
irrende Gestalten, ständig neue 
Spielsituationen ergeben. 
Befehlsliste: 

Die in Klammern angegebenen 
Hinweise brauchen nicht mit einge- 
geben zu werden. Richtungsanga- 
ben, wie zum Beispiel »East«, können 
durch die Anfangsbuchstaben ab- 
gekürzt werden. 


T he Hobbit ist ein Grafikadventu- 


Nisty, 
= Nounten 
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START: 
OPEN DOOR, EAST, NORTH, 


NORTH, WAIT (bis »DAY DAWNSO, 


SOUTH, GET KEY, NORTH, UN- 
LOCK, OPEN, GO DOOR (Rocky 
door), GET ROPE, GET SWORD, 
SOUTH, SOUTH, SOUTHEAST, 
TALK, SAY ELROND »READ MAP« 
(bis er sie liest), EAST, NORTH, 
NORTHEAST, NORTH, SOUTH- 
EAST, DOWN, DOWN, DOWN, 
DOWN, EAST, GETKEY, UP 
NORTH, WEST, SOUTH, EAST, 
NORTH, (nun warten Sie, bis ein 
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Goblin Sie gefangen nimmt, achten 
Sie aber darauf, daß Gandalf oder 
Thorin bei ihnen sind), DIG SAND 
(in »Goblins dungeon«), BREAK 
TRAP WITH SWORD, GET KEY, 
SAY THORIN »CARRY, ME« (oder 
zu Gandalf), SAY THORIN »OPEN 
WINDOW«, SAY THORIN »GO 
WINDOW« SOUTHWEST, (als 
nächstes müssen Sie in dem Ver- 
lies der Goblins einen Ring su- 
chen, der von Gollum bewacht 
wird. Haben Sie diesen, begeben 
sie sich zum Ausgang »GOBLINS 
BACKDOORJ4), EAST, EAST, OPEN 
CURTAIN, OPEN CUPBOARD, 
GET, NORTHEAST, EAST, EAST, 
WEST, WEST, WAIT (bis »Wooden 
Elf« kommt und Sie in einem roten 
Kerker einsperrt) (Sie befinden 
sich nun im Kerker), WAIT (bis 
»SOMEONE OPEN RED DOOR4), 
GO DOOR, NORTH, WAIT, 


Der Lageplan von Hobbit 


) Path Io Skeep 
1 71 Path 
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Fehlerteufel 


C 64/VC 20 








SOUTH, (diese »NORTH-WAIT- 
SOUTH«-Kombination so lange, bis 
»BUTLER DRINK SOME WINE«, 
dann weiter bis »BUTLER OPEN 
TRAP DOOR«, wenn »BUTLER 
THROWS BARREL THROUGH 
TRAP DOOR«, »JUMP BARREL« 
eingeben), EAST, SAY BARD »CA- 
REFULLY, GO NORTH«, NORTH, 
NORTH, WAIT (bis »RED DRA- 
GON:« erscheint), SAY BARD 
»SHOOT DRAGON«, UP, NORTH, 
NORTH, NORTH, GET TREASURE, 
SOUTH, SOUTH, SOUTH, DOWN, 





SOUTH, SOUTH, (am »WATER- 
FALL« warten Sie bis Wooden-Elf 
kommt) so kommt man in das EI- 
fenverlies), WAIT (auf »sSOMEONE 
OPEN RED DOOR«, GO DOOR, 
NORTH, WAIT, WEAR RING, RE- 
AD MAGIC DOOR, LOOK DOOR, 
WAIT (irgendwann öffnet sich das 
magische Tor), WEST, (ein Spin- 
nennetz behindert nun den Weg, 
dieses Hindernis kann durch Ein- 
gabe von SMASH WEB beseitigt 
werden), (nun versuchen Sie an 
Hand der Lagekarte zum LONE- 


SURE. 
ENDE 


LAND zurückzukehren), GO 
DOOR, OPEN CHEST, PUT TREA- 


Mit Hilfe dieser Lösung sollte es 
möglich sein mindestens 85% des 
Adventures zu lösen. Wenn manalle 
Räume durchlaufen hat, sind sogar 
101,5% drin. Übrigens der Punkte- 
stand kann mit »SCORE« abgefragt 
werden. 

Und nun viel Erfolg! 


(Roland Selzer/rg) 





Fehlerteufelchen 


Nun habe ich also ein erwei- 
tertes Betätigungsfeld. Die Re- 
daktion bietet mir mit dem er- 
sten Sonderheft sage und 
schreibe 26 Listings für meine 
Aktivitäten an. Zwar versuchen 
die jetzt mit inrem Checksum- 
mer (und in Zukunft mit dem 
MSE) mir das Leben schwer zu 
machen, doch ich bin sehr hart- 
näckig und nicht so leicht von 
der Bühne zu kriegen. Ich schla- 
ge, wo es mir immer möglich er- 
scheint, erbarmungslos zu. Was 
mich ein bißchen stört ist die 
Aufmerksamkeit der Leser, Die 
scheinen jeden Artikel von vor- 
ne bis hinten durchzulesen. Wie 
soll unsereins da noch eine 
Chance haben? Ich muß hier al- 
so meinen Einfluß im Sonderheft 
und im 64'er Stammagazin preis- 
geben. 


Sonderheft 1 


Track 18, SH1, Seite 46 
Dice Prüfsumme in der Zeile 2520 
muß <230> lauten. 
Zeile 50005: Das geSHIFTete Pi 
muß als <Commodore>+AÄ 
eingegeben werden. 


Disksorter in Vollendung, SH1, Seite36 

Zeile 3160: Auch hier muß das 
geSHIFTete Pi als <Commo- 
dore> +A eingegeben werden. 
Disketten-Meister, SH1, Seite 51 

Zwei Zeilen wurden nur halb 
abgedruckt. Die kompletten 
Zeilen lauten: 
1020 DATA 134,193,76,174,167,32, 
76.195,32,114,.195,96,174.160.192, 
160 
1350 DATA 255,133,253,169,0,160, 
10,24,101,251,136,208,250,24,101, 
252 
Toolkit für Programmierer, SH1, Seite 67 

Die undeutlich gedruckten 
DATAs in den Zeilen 207,208 und 
213 lauten: 173,133 und 19 
Hardcopy im Superformat, SH1, Seite 86 

Wenn Sie dieses Programm 
mit dem Görlitz-Interface betrei- 
ben wollen, müssen Sie in Zeile 
320 die Eins in eine Zwölf umän- 
dern. Bitte denken Sie daran, in 
diesem Fallauch die Prüfsumme 
in Zeile 600 um Elf zu erhöhen. 
Zeichen-Editor, SH1, Seite 88 

In der Zeile 5020 muß die 
PRINT-Anweisung genauso, also 
mit der eckigen Klammer, ein- 
gegeben werden. 


Super Line — 80 Zeichen für den C 64, 
SH1, Seite 91 

Nachdem der Basic-Lader 
sich mit »READY« gemeldet hat 
(beziehungsweise das Maschi- 
nenprogramm mit SYS 36864 ge- 
startet wurde), muß unbedingt 
noch einmal NEW eingegeben 
werden, da es sonst bei der Ein- 
gabe von neuen Programmzei- 
len zu Schwierigkeiten kommt. 

In der Beschreibung muß die 
Zeile 30 des Beispieles wıe folgt 
lauten: 
30 W 0,0,"64'ER DAS MAGAZIN 
FÜR COMPUTER-FANS” 


64er, Ausgabe W, 11, 12 


Synthesizer (AdM), Ausgabe 12/84, Seite 
55 


Das Programm selbst ist in 
Ordnung, nur die SAVE-Routine 
weist einen kleinen Schönheits- 
fehler auf. Die Zeilen 140 und 150 
müssen lauten: 

POKE 187,681 AND 255 
POKE 188,681/256 

Die Folge war, daß der Ob- 
jektcode zwar richtig abgespei- 
chert wurde, aber unter einem 
falschen Namen! Ansonsten ist 
diese Routine für all diejenigen 
zu empfehlen, die ein File abso- 
lut abspeichern möchten, aber 
keinen Monitor haben. 

Martin Ahlborn 


Zinseszinsrechnung, Ausgabe 10/84, 
Seite 72 

Die Zeile 3040 muß richtig lau- 
ten: 
3040 iff=3thena(l8)=((a(10)/a(9)) 
1(V/(all)*a(l2))}-1)*100*al12):d=0 
Der Faktor »a(l2)« fehlte in dieser 
Zeile. 

Frank Heidemann 


Turtie-Grafik (LdM), Ausgabe 11/84, Seite 
55 ff. 

Direkt nach dem IF.THEN- 
Befehl kann keiner der neuen 
Basic-Befehle verwendet wer- 
den (SYNTAX ERROR), ein Feh- 
ler mit dem übrigens auch pro- 
fessionelle Basic-Erweite- 
rungen wie zum Beispiel Super- 
grafik 64, Screen Graphics, Ul- 
trabasic und andere behaftet 
sind. Dies kann man jedoch 
leicht umgehen, indem man 
nach dem THEN einen Doppel- 
punkt eingibt, und dannerstden 
neuen Befehl. Der Fehler kommt 
dadurch zustande, daß nach 
dem IF..THEN der Vektor zur 


Ausführung eines Basic-Befehls 
übersprungen wird und so die 
neuen Befehle nicht ausgeführt 
werden können. 

Die korrekte Speicherauftei- 
lung von Turtle-Graphics lautet 
übrigens: 

1. Video-RAM wie normal bei 
$0400 

2. Hires-Farb-RAM: SCC00 

3. Hires-Bitmap: $E000 

4. Das Programm selbst: 
$C000-$C88B 

Im Absatz »Programmierungs, 
Seite 49, muß es unter b) »f5« statt 
»is« heißen. 

Ich wurde von einigen Lesern 
gefragt, wie es möglich ist, die 
lästige Einleseroutine zu verkür- 
zen oder zu umgehen. Dies ist 
sehr einfach zu bewerkstelligen, 
indem man den Speicherbe- 
reich indem das Programm liegt 
direkt abspeichert. Dies ist un- 
ter anderem mit einem der Ein- 
zeiler in der gleichen Ausgabe 
möglich. Die einzelnen Werte 
sind: Is=0, hs=192, le=140 und 
he=200. 

Peter Menke 


Die Ebenen des Absturzes, Ausgabe 
11/84, Seite 92 


Leider mußte ich feststellen, 
daß mir in den »Ebenen des Ab- 
sturzes«ein kleiner Fehler unter- 
laufen ist. 

Nach Erkennen von »cbm 80« 
springt das Betriebssystem na- 
türlich zu den Adressen $800 
und $801, und nicht wie angege- 
ben nach $802/803. 

Die Zeilen 100 und 130 sehen 
dann folgendermaßen aus: 

100 FOR I = 32768 TO 32778 
130 DATA 9, 128, 0,0, 195, 194, 205. 
Daniel Kossmann 


AN Ran 
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Anwendung des Monats 


Der Programmautor 
stellt sich vor 


Ich bin 28 Jahre alt und 
gehöre damit laut Statistik 
der Computerhersteller 
nicht mehr zu den poten- 
tiellen Käufern der Ho- 
mecomputer. Dies hielt 
mich jedoch nicht davon 
ab, Computer zu meinem 
Hobby zu machen. 

Nach einer Lehre als 
Radio- und Fernsehtech- 
niker war ich acht Jahre 
bei der Bundeswehr. Zu 
meiner Entlassung im 
März 1983 war ein ZX8l 
das Abschiedsgeschenk 
meiner Kameraden. Seit 
April 1983 gehe ich wie- 
der zur Schule und lasse 
mich zum Computertech- 
niker ausbilden. 

Durch diese Ausbil- 
dung stieß ich sehr bald 
an die Grenzen des ZX81, 


der ja auch nicht gerade 
der komfortabelste ist. So 
legte ich mir nach einem 
halben Jahr einen VC 20 
zu. Zwar auch nicht der 


Weisheit letzter Schluß, 
aber dennoch... 
Speichererweiterung 

und Kassetten- Interface 
baute ich selbst, so daß 
ein preiswertes, komfor- 
tables System entstand. 
Soweit es die finanziellen 
Mittel zuließen, folgten in- 
zwischen Floppy, Druk- 
ker, Monitor, 40/80 Zei- 
chenkarte und diverse 
andere Extras. Eine Sy- 
stemkonfiguration mit der 
sich schon ganz bequem 
arbeiten läßt. 


(Peter Sprockhoff) 
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In der heutigen Zeit ist Empfängnisverhütung und Geburten- 
kontrolle wohl etwas ganz Alltägliches. Weniger alltäglich ist 


allerdings der Einsatz eines Homecomputers zu diesem 
Zweck. Es ist dennoch ein typisches Beispiel für die 
statistische Auswertung von Meßergebnissen. 


N: dem Motto »Zurück 
zur Natur«handelnimmer 
mehr Frauen, die aufdie her- 
kömmlichen Verhütungsmit- 
tel verzichten wollen oder 
diese aus gesundheitlichen 
Gründen nichtnehmen. Eine 
Pillenpause meiner Freun- 
din brachte mich nun auf die 
Idee, die folgenden Berech- 
nungen in ein Computerpro- 
gramm umzusetzen. 

Die Methode der natürli- 
chen Verhütung besteht dar- 
in, die fruchtbaren Tage ei- 
nes Zyklus zu errechnen. 

Zwei Ärzte, Knaus (Öster- 
reich) und Ogino (Japan) fan- 
den voneinander unabhän- 
gig eine Verhütungsmetho- 
de heraus, die auf dem weib- 
lichen Zyklus basiert. 

Zuerst ist es wichtig, den 
Termin des Eisprunges zu 


errechnen, da eine Befruch- 
tung nur kurze Zeitnachdem 
Eisprung möglich ist (etwa 6 
Stunden). Knaus und Ogino 
fanden heraus, daß ziemlich 
genau 14 Tage vor der näch- 
sten Periode der Eisprung 
stattfindet. Bezieht man nun 
die Lebensdauer der Sper- 
men (48 Stunden) in diese 

berlegung ein, so kann 
man die Tage der Enthalt- 
samkeit eingrenzen. Zählt 
man zum un in des Ei- 
sprunges 266 Tage (9 Mona- 
te) hinzu, so erhält man den 
Termin einer eventuellen 
Geburt. 

_ Konkret heißt das: Datum 
' ersten erfaßten Regel 
en ıerfaßten Regel 
g den Beobachtungs 
zeitraum. Daraus wird der 
Mittelwert für die Dauer ei- 


oo0n. 
@ 
- 


x 7 
Q 
DE 
1 





ner Regel gebildet. Zur letz- 
ten Regel wird der Mittel- 
wert addiert. Die Standard- 
Abweichung ergibt die 
Schwankung um diesen er- 
rechneten Termin. Schwan- 
kungsmaximum — 14 Tage = 
lezter Tag der Pause. 
Schwankungsminimum — 14 
Tage — 2 Tage (Lebensdau- 
er Spermen) = erster Tag 
der Pause. Mittelwert ad- 
diert zur letzten Regel — 14 
Tage + 266 Tage = Termin 
einer eventuellen Geburt. 
Alle Werte werden in Stun- 
den bezogen auf ein festes 
Datum umgerechnet. 

Autor und Redaktion über- 
nehmen keinerlei Haftung 
= eventuellen auftreten- 

ien Komplikationen. 


(Peter Sprockhoff/ev) 





Ein heikles Thema 


Die einzige Empfängnisverhütung, die 
die katholische Kirche duldet, heißt 
Knaus-Ogino oder realistischer Römi- 
sches Roulette. Die Methode beruht 
auf der Messung des Eisprungs. Nä- 
heres erfahren Sie vom Hausarzt. Der 
VC 20 übernimmt die Statistik, aber 
keine Haftung. 


Immer mehr Frauen, die entweder die Pille oder andere Ver- 
hütungsmittel nicht vertragen oder nicht nehmen wollen, grei- 
fen zu Kalender und Bleistift und errechnen die »gefährlichen« 
Tage nach der sogenannten Knaus-Ogino-Methode, die auf 
dem weiblichen Zyklus basiert. 

Daessich um eine statistische Methode handelt, erhöhtsich 
die Sicherheit mit der Anzahl der Messungen. Um das Zahlen- 
material bequem zu verwalten und Rechenfehler mit Folgen 
weitgehend auszuschalten, bietet sich der Einsatz eines Com- 
puters an. 

Das Programm ist auf einem VC 20 mit 16-KByte-Erweite- 
rung und Diskettenstation 1541 geschrieben. Es benötigt mit 
Kommentaren exakt 4614 Byte RAM, kann jedoch durch 
Fortlassen der REM-Zeilen soweit gekürzt werden, daß es 
auch auf der Grundversion des VC 20 läuft. 

Spezielle POKE-Befehle wurden vermieden, womit das Pro- 
gramm auf allen Commodore-Computern mit minimalen Kor- 
rekturen hinsichtlich der Bildschirmaufteilung, lauffähig sein 
sollte. Die Routinen zum Schreiben und Lesen von sequentiel- 


Liste der verwendeten Variablen 


A$ 
D$ 
F$ 
M$ 
T$ 
Y$ 


Abweichung in Std. 
Tag 

Dateiname 

Monat 

Zeit 

Jahr 

Feldvariable 
Fehlerguadrate 

Tag 

Stunden 
Laufvariable 
Hilfsvariable 
Laufvariable 

Monat 

Hilfsvariable 

Std. seit 1972 
Uhrzeit 
Abweichung 
Abweichung zu früh 
Abweichung zu spät 
Anzahl der Werte 
Jahr 
Arithmetisches Mittel 
Hilfsvariable . 


A 
B 
D 
H 
1 
J 
K 
M 
N 
Ss 
T 
U 
V 
Ww 


PN<x 


> 
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len Dateien können bei Benutzung einer Datasette sehr leicht 
geändert werden: 

1310 OPEN 2,1,0,F$ 

1380 OPEN 2,1,2,F$ 

Nach dem Starten des Programms meldet es sich zunächst 
mit einer Kurzanleitung. Anschließend können Daten per Hand 
eingegeben oder von Diskette gelesen werden. Das Datum 
muß mit Komma getrennt und die Jahreszahl vierstellig einge- 
geben werden. Die Uhrzeitist auf volle Stunden auf- oder abzu- 
runden. Diese Daten werden nämlich für die statistische Auf- 
bereitung der Meßwerte benötigt. 

Nach der Eingabe werden die Daten gespeichert . Darauf er- 
folgt die Ausgabe aller Daten mit der Dauer zwischen der er- 
sten und der n-ten Periode in Tagen sowie der Abweichung in 
Stunden (Bild 1). 

Bei brauchbaren Werten erscheinen jetzt die ersten Ergeb- 
nisse, wobei die Werte in Klammern die größte Abweichung 
nach oben oder unten angeben (Bild 2). 

Nach Tastendruck erscheinen schließlich auf dem Bild- 
schirm die wahrscheinlichen Werte der in diesem Zusammen- 
hang interessierenden Ereignisse (Bild 3). Die Empfängniszeit 
ist in »Pause von ... bis« enthalten. »Nächste P« ist der voraus- 
sichtliche Termin der nächsten Periode. Danach kommen die 
(voraussichtlichen) Termine des nächsten Eisprunges und ei- 
ner eventuellen Geburt. 

Mit einer einigermaßen zuverlässigen Berechnung ist erst 
nach mindestens drei eingegebenen Werten zu rechnen. Wie 
immer bei statistischen Aussagen, so gilt auch hier: Je mehr 
zuverlässige Werte vorhanden sind, desto genauer wird die 
Aussage. Autor und Redaktion übernehmen keinerlei Garantie 
für das einwandfreie Funktionieren dieser Methode. 

(Peter Sprockhoff/ev) 


Der Programmaufbau 


Dimensionierung für 2 Jahre 
Bedienungsanleitung 

Eingabe des Namens 

Überprüfung ob nur 1 Wert vorhanden 
Eingabe der Daten 

Maskenaufbau für erste Datenausgabe 
Berechnung der Periodendauer und Abweichung 
Ausgabe der Periodendauer und Abweichung 
Überprüfung ob die Werte geeignet sind 
Ausgabe der Pause und weiteren Daten 
Berechnung der Stunden seit 1972 
Unterroutinen 

Berechnung des absoluten Datums 

und des Jahres 

Berechnung des Monats 

Berechnung von Tag und Uhrzeit, Umwandlung 
von Stunden in Tage und Stunden 
Berechnung und Ausdruck von Datum 

und Hinweis 

File von Diskette lesen 

File auf Diskette schreiben 

Umrechnung der Variablen in String 


- 170 
- 200 
- 280 
- 370 
- 450 
- 540 
- 600 
- 710 
- 830 
- 900 
- 990 
1000-1070 


1080-1140 
1150-1240 


1250-1280 
1290-1350 


1360-1420 
1430-1610 
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Bild 1. Hardcopy der Werteausgabe 
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Bild 2. Hardcopy der statistischen Kennwerte 


ERSEENISSE : 


MITTEL 283 
+ 

STREUUNG 

BEMERKUNG: 


HERTE SIHD 


SEHR SUT. 


EITTE TASTE TRUECHKEH 


Bild 3. Hardcopy der Ergebnisausgabe 
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Listing »Familienplanung« 


19 REM HN TH N NR <055> 
28 REM** FAMILIENPLANUNG #%# <165> 
38 REM** FUER VC 20 *% <130> 
48 REM*#* BEARBEITET VON ** <B41> 
52 REM#* PETER SFROCKHOFF *# <222> 
&8 REM## ROONSTR. 11 *%* . 8587 
7B REM** 4798 FÄADERBORN ** <238> 
8B REM##*+ 4614 BYTES #** <221> 
98 REMREURRRRRRRFHRNHRNNRTTR <135> 
iBB DIM AtZ4):REM WERTE FUER 2 JAHRE <B28> 
11B PRINT" {CLR}** FAMILIENPLANUNG 3" <224> 
128 PRINT" <2DOWN}ALLE VERWENDETEN DATENMUESSEN 
ZWISCHEN DEM" <169> 
158 PRINT"1.1.1973 — 31.12.1999 LIEGEN." 2557 


148 PRINT" {DOWN}DIE REIHENFOLGE DER{3SPACE} 
DATEN DARF NICHT UNTERBROCHEN WERDEN." 2883 
15@ PRINT" {DOWN}DIE JAHRESANGABE MUSS 4-STELLIS 


ERFOLGEN. " {2387 
160 PRINT" {DOWN?SIND DATEN AUF DISK ? " 
:50SUB 738 209% 


178 X=8:FOR I=1 TO 1BAB:NEXT:PRINT"{CLRY" <150> 

18@ IF A=1 THEN INPUT" {DOWN,SPACEINAME: ";F$ 
:GOSUB 1312:G60T0 Zu x197> 

198 IF A<>1 THEN INPUT" {DOWN}FUER WEN SOLLEN 
DIE{SSPACEIDATEN ERFASST WERDEN ?{DOWN}"SFF 


:G60T0 270 x245> 
208 PRINT" {DOWN?SOLLEN WEITERE DATEN {2SPACE} 
HINZUGEFUEGT WERDEN ?":G0SUB 930 <BB0> 
218 : zxB12> 
220 REM PRUEFUNG OB NUR 1 WERT 283 
220 : <032> 
2a@ IF A<>1 AND X{2 THEN PRINT" {CLR,DOWN}EIN 
WERT IST NICHT{4SPACEIAUSREICHEND !" _ 
:60T70 278 z145> 
252 IF A<>1 THEN 338 ö x152> 
z&6A IF X=1 AND A=B THEN 318 <216> 
278 IF X>=1 AND A=1 THEN PRINT" {ELRY" <112> 
288 : <283> 
298 REM EINGABE DATUM & ZEIT MIT "," GETRENNT 
057> 
300 : <193> 
318 X=X+1:PRINT" {DOWN>BITTE DEN"X".TEN WERT 
EINGEBEN." “873> 


320 PRINT" TAG,MONAT „JAHR, ZEIT{SSPACEI" 
: INPUT D,M,„Y,T:G0SUB 84B:A(XI=H:GOTO 202 
<183> 


358 GOSUB BR: IF AX>1 THEN 358 <x2893> 
348 GOSUB 1388 . x174> 
358 PRINT" {CLR,DOWN}BERECHNUNG ("X"WERTE) ": V=B 

ıW=B: AA=0 <184> 
368 Z=(AXI-ALLII)Z/CX-I):B=B 1745 
370 : 2173> 
3828 REM MASKENAUFBAU x127> 
398 : “193> 
488 PRINT" {DOWN}DATUM {3SPACEFZÜHR- SDAUSAB-" 

x855> 

418 PRINT TAB(8) "=ZEIT"TAB(1S) "ZER"TAB(1TI" ZWEI 

C{BSFACE+IZTASFACEIZTSSPACE I SHUNG" <195> 
428 FOR I=B TO Z1:PRINT TAB(I}" {UP3-":NEXT <254> 
438 FOR K=1 TO X:H=A(k):GOSUB 1030:60SUB 1470 

sIF K=1 THEN PRINT"{UPF"=NEXT K <152> 
448 S=AtK}I-AtK-1) :PRINT" {UP} 

“TAB (14) INT ((5/2.4)/10) x2089> 
458 : 2337 
469 REM BERECHNUNG DAUER UND ABWEICHUNG <114> 
478 : <B17> 
4838 U=S-Z: A$=STRECINT CU} PRINT" ZUPI"TABCIEIAF 
498 B=B+Url xQ33> 
588 IF U>W THEN W=U 1226> 
518 IF UXV. THEN V=U “25h? 
528 NEXT K:GOSUB 94B: IF A=9 THEN 112 x@74> 
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330 IF A=1 THEN AR=1 <207> 
540 : <BB8> 
558 REM AUSGABE DER DAUER UND ABWEICHUNG <1971 

568 : x108> 
570 PRINT" {CLR ,DOWN}ERGEBNISSE: "PRINT 

ıW=1INT (BD. 5+W) : V=-INT (8. 5+ABS (V)) xB27> 
580 H=2:505UB 1228: PRINT"MITTEL"D5 "TAGE"3ST3 

"STD. "3" £DOWN, 7SPACEI CH" W5 "7" x115> 
57a A=B/(X-1):A=SOR (A): PRINT" {DOWN} 

STREUUNG" INT (1B#A+8.5) 7/10; "STD." xB12> 
s&u2 : <148> 
612 REM PRUEFEN OB WERTE GEEIGNET x104> 


6282 : <s168> 


639 B+="SEHR GUT": IF A>14 THEN Bt="GUT" <BB5> 
&aa IF A>24 THEN B#="BEFRIEDIGEND" <192> 
650 IF A>44 THEN B$="MANGELHAFT" x075> 
648 IF A>54 THEN B$="UNGENUEGEND" <188> 
&78 PRINT" {DOWN}BEMERKUNG: WERTE SIND " :827> 
688 PRINT" {SSPACEY"+B$+". "SPRINT . 21345 
6978 PRINT" {&DOWN,SPACE}IBITTE TASTE DRUECKEN" 
xB65> 
788 FOKE 198,B:WAIT 198,1 <u3Q> 
710 : <002> 
728 REM AUSGABE DER PAUSE UND NAECHSTE DATEN 
<B8B> 
738 : x822> 
748 PRINT" {CLRY":S=A(X)+Z <131> 
758 H=S-A-410: B£="PAUSE VON{TSSPACE}":GOSUB 1278 
<D81> 
7&B H=S+A-208: Bt=" {65SPACEIBISTISSPACE}" 
:G0OSUB 1270 “117> 
778 H=S5:B£="NAECHSTE P. ":605UB 1278 . 086> 
780 H=5-3356: B#="EISPRUNG {4SPACE}":60SUB 1278 
<B55> 

798 H=5+6B48: B#="GEBURT {4SPACE}":GOSUB 1278 
<21@> 

Ban PRINT:GOSUB 978: IF A=1 THEN 358 <B43> 


818 IF A=B THEN CLR=PRINT"tELR}Y"SPE (225) "DANKE 5 
SCHOEN": END <@81> 
820 END x183> 
838 : <123> 
848 REM BERECHNUNG DER STUNDEN SEIT 1.1.1972 2. 
am UHR <B42> 
850 : x143> 


848 Y=Y-1972:1F Y<1 OR Y>27 THEN PRINT"JAHR 


IST UNZULAESSIG !":STOP zB&8> 
872 H=24# (365#Y+INT (Y/4)+D)+T 
: IFCINT(Y/4)=Y/A)AND MS THEN H=H-24 <893> 


8saß FOR I=1 TO MeREAD D:NEXT:RESTORE: H=H+24#*D 


«RETURN <228> 
898 DATA 0,31,59,98,120,151,181,212,243,273,304, 

334,365 . <21&> 
90R : <193> 
9718 REM FRAGE MIT JA ODER NEIN BEANTWORTEN <151> 
920 : <213> 
9738 J=1:N=@: INPUT“ £DOWNF (J/NI "zA$ 

sIF A$="J"THEN A=1: RETURN <B95> 
948 IF A$="N"THEN A=0: RETURN <117> 


758 PRINT" {DOWN3MIT J ODER N ANTWORTEN":G0OTO 938 
<x116> 
962 PRINT" {DOWN}SIND DIE WERTE BRAUCH-BAR 7" 
:G0SUB 938: RETURN <2087> 
778 PRINT" {DOWN>WOLLEN SIE DIE TERMINENOCH MAL 
SEHEN ?":60SUB 958: RETURN <a52> 
732 PRINT" {DDWN’SOLLEN DATEN ABGESPEI-CHERT 
WERDEN ?":GOSUB 930: RETURN xw1&> 
998 : <827> 
1229 REM BERECHNUNG DES ABSOLUTEN DATUMS AUS H 
(SEIT 1972) <B6B> 
18190 REM BERECHNUNG DES JAHRES <254> 
1920 : <857> 
1238 Y=1972:H=H-8784: IF H<B THEN PRINT"FEHLER 
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19: STOP <255> 
1040 Y=Y+1:IF H<8768 THEN 1128 <BB1> 
1050 IF INT(Y/4)<>Y/4 THEN H=H-8740:60T0 1840 

<12@> 
1968 IF H>=8784 THEN H=H-8784:60T0 1948 <248> 
1070 : <ıa8> 
1289 REM BERECHNUNG DES MONATS <Q9B> 
1299 : <128> 
1100 M=-1 <B43> 
111@ M=M+1:N=J:READ J:IF M>1 AND INT(Y/4)=Y/4 T 

HEN J=J+1 <167> 
1128 IF H>=J#24 THEN 1118 <B96> 
1152 RESTORE: H=H-N#24 <129> 
1140 : <178> 
1158 REM BERECHNUNG VON TAG UND UHRZEIT <211> 
1168 : <198>. 
1170 GOSUB 122@:D=D+1 <855> 
1182 RETURN <B46> 
1198 : x228> 
1228 REM UMWANDLUNG VON STUNDEN IN TAGE UND STU 

NDEN <B25> 
1210 : <248> 
1220 IF H>22980 OR H<B THEN PRINT" {DOWNFSTUNDEN 

AUSSERHALB DESBEREICHS !":5TOP <149> 
1238 D=INT (H/24) : T=-INT{H-24*D) : RETURN <128> 
1248 : <B022> 
1250 REM BERECHNUNG UND AUSDRUCK VON DATUM MIT 

HINWEIS <B14> 
1260 : <B42> 
1270 GOSUB 1038:605UB 1440: PRINT:RETURN <120> 
1280 : {063> 
1298 REM FILE VON DISKETTE LESEN <133> 
1300 : <883> 
1310 OPEN 2,8,2,F$+",5,R" <855> 
13520 INPUT#2,F#: INPUT#2,X <237> 
1358 FOR J=1 TO X: INPUT#2,A(J)I:NEXT <149> 
1348 CLOSE 2:RETURN .‚x219> 
1350 : <133> 
1360 REM FILE AUF DISKETTE SCHREIBEN <208> 
1370 : <1535> 
15388 OPEN 2,8,2,"@: "+Ff+",5,W" <234> 
139798 PRINT#2,F#:PRINT#2,X xa971> 
14988 FOR J=1 TO X:PRINT#2,A{J) NEXT x239> 
1418 CLOSE 2:RETURN <933> 
1428 : <203> 
1439 REM AUSDRUCK VON DATUM UND HINWEIS <248> 
1440 REM UMRECHNUNG VON D,M,Y,T IN STRING <B83> 
1458 : <233> 
1462 PRINT B$; <243> 
1478 D$=STR$(D) :M$=STR$ (M) = Y$=STR$ (Y-1980) 

2 T$=STR$ CINT(T+Q.5)) cK$=", "08-0. Do" <B85> 
1482 Y$=RIGHT$ (Y$,2) <241> 
1498 IF LEN(T$)=2 THEN T$=RIGHT$(T$,1) <146> 
1508 IF LEN(T$)>2 THEN T$=RIGHT$(T$,2) <156> 
1518 IF LEN(D$)=3 AND LEN(M$)=2 THEN 1558 <997> 
1528 IF LEN{D#)=2 AND LEN(M$I=3 THEN 154B <iB8B> 
1550 IF LEN(D$)=Z AND LEN(M$)=3 THEN 1578 <120> 
154M DE=RIGHTF(DE,1):M&=RIGHTS(M$,1):GOTO 1580 

<217> 
1558 D$=RIGHT$ (D$,2) :M$=RIGHT$(M$,1):60T0 1580 
<228> 
1568 DE=RIGSHTE(DF,1) 2 M$=RIGHTF(MF,2):60T0 1588 
x238> 
1572 D$=RIGHTF (D$,2) :M$=RIGHT$ (M$,2):60T0 1588 
<249> 
1598 IF AA=1 THEN 1680 <144> 
1598 PRINT D$+K$+M$+K$+Y$TAB (9) T$+HUS: RETURN 
<B25> 
1&9B PRINT D$S+KE+MSHKEHYSF <187> 
1618 PRINT TAB{12) T$+U$;" UHR" :RETURN <233> 
Listing »Familienplanung« (Schluß) 
kam AR 








Fortsetzung von Seite 51 


Auf der Suche nach der goldenen Totenmaske des Pharao 
müssen Sie hier die erste Aufgabe lösen. Eine Menge Pro- 


grammzeilen sind auf dem Weg in die Wüste, in der das Grab: 


des Pharao steht, einzutippen. Damit Sie nicht hier schon »in 
der Wüste der Fehlermeldungen« stehen, ist auch dieses Pro- 
gramm mit dem Checksummer einzugeben. Liegt diese Hürde 
hinter ihnen, wird Ihnen ein freundlicher Beduine, sobald Sie 
Ihn gefunden haben, den richtigen Weg weisen. (rg) 


Variablenliste »Grab des Pharao« 


PN (58,6) = Spielfeld (besteht aus 58 Bildern) 

IT$ (54) = Liste der Gegenstände (Namen) und Wörter 
(zur Verschlüsselung der Kommentare) 

IN (46,3) = Information über Standort der Gegenstände 
und Möglichkeit diese mitzunehmen 

CO$ (18) = Liste der Verben 
= momentaner Standpunkt 
= Flags für bestimmte Spielsituationen 

X5,X6,X9 = Flags für bestimmte Spielsituationen 

Y1ıY2Y3Y4 = Flags für bestimmte Spielsituationen 

GE - = Anzahl der Gegenstände, die man bei sich 
trägt (maximal 3) 























BO REM *** PHARAOS GRAVE V.2 #8 <196> 
1 REM BY W. RAUSCH <118> 
2 REM MOERIKEWEB 73 <234> 
Z REM 85@04 STEIN 238% 
5 Al$=" {HOME , 18DOWN}" <214> 
& A2#=" {HOME ,21DOWN}" <B1i> 
7 AS$=" {HOME „22DOWN}" <B3B> 
B A4$=" {HOME ,23DOWN}" <B49> 
9 PRINT" {CLR}":V=53248:51=54272: POKE V+21,8 
:FOKE 657,128 <B23> 
iD FOR I=832 TO 846S:READ A:POKE I,A:NEXT <175> 
11 DATA 120,169,51,133,1,169,8,133,95 <B36> 
12 DATA 133,98,133,38,169,228,133,76,169,240, 
132,89,169,224,132,91,32,191,163 255> 





17 DATA 1689,55,1322,1,88,7& xB29}> 
15 5Y5 BI2Z:FOKE 852,168:5Y5 832 
:POKE 54575 ,PEEE (56576) AND 252: FOKE 53272,8 



































21545 
16 FOEE 548,192 xB17> 
2B G0OTD 10028 x142> 
380 DIM PN{S59,6),1T#(54),IN(45,7),C0#(18) 2132: 
48 FOR I=1 TO 18:READ ECD#+(I):NEXT 2175: 
52 FOR I=1 TOD S4:READ ITFÜIISNEXT Z1F6: 
55 RETURN x1975 











62 FOR I=85& TO 875:READ ArPOKE I,A:NEXT 






































:IF Kk=1 THEN RETURN 8745 
65 FOR I=1 TOD 58 <235> 
78 READ PN{I,1},PN(1,2) „PN{I,S) ,PN(I,A) „PN{I,5), 

PN{I,&) <BS4> 
88 NEXT z218> 
98 FOR I=1 TO 44 <a21> 
iB@ READ IN(I,1),IN(1,2),IN(I1,3 <240> 
11@ NEXT <24D> 
138 RETURN <@l6> 
150 AP=1 <B1B> 
155 FOKE 532898,11:POKE 53781,8 «2425 





168 FRINT"{CLRY":FOKE V+21,2 
ıFOKE V+17,FEEKIV+17IAND 279: 50SUB 19880 


























A1AZF 
164 POKE 214,15:5Y5 586448: FRINT" {RED} 
WURH HHUN HM 
{WHITE}" <1157> 











== Das Grab des Pharao I 


Programmbeschreibung »Grab des Pharao« 


10-13 


30—150 
164—410 


500-1910 
5000-5910 
10000—10900 
12000—12167 
19000— 20900 
21000—21018 
21030—21038 
21050— 21500 


30000—30040 
34000—35060 


39900--40044 


45000—49065 
50105—52030 


Listing »Grab des Pharao«. Beachten Sie beim Eintippen bitte den Beitrag über den »Checksummer 64« 


165 POKE Y+17,PEEK(V+17)OR 1& 

172 FRINT" <UFIMOESLICHE RICHTUNGEN =": 

174 FOR I=1 TO 6 

175 IF PNIAP, 
182,184,185 

175 NEXT:SOTO 218 

177 PRINT" W"; RETURN 

188 PRINT" 0"; RETURN 

181 PRINT" N"; :RETURN 

182 PRINT" S";:RETURN 

184 PRINT" H";:RETURN 

185 FRINT" R"rRETURN 


: Maschinenprogramm zur Verschiebung des Zei- 
chengenerators ' 

: Einlesen der Felder (Arrays) 

: Information zu den Bildern und Eingabe eines 
Verbs 

: Befehlsauswertung 

: Kommentare und Eingabe eines Nomens 

: Einlesen der Charakter-DATA 

: Einlesen der Sprite-DATA 

ı Zeichnen der Bilder (Hintergrund) 

: Zeichnen der Durchgänge 

: Zeichnen der Türen (Sprites) 

: Zeichnen der Gegenstände (hauptsächlich Spri 
tes) j 

: Gegenstände, die man trägt, auflisten 

: Routinen zum Einlesen und Abspeichern eines 
Files 

: DATAs für Verben, Nomen, Spielfeld und Gegen- 
stände 

: Vorspann 

: Kommentare bei Niederlage des Spielers und 
Routinen für bewegliche Gegenstände 












I1!>2 THEN ON I GOSUB 179,1829,181, 





zi@ FRINT AlF"BESONDERHEITEN: ";:N=Bß xBS1> 
22ER FOR I=i TOD 4& 21915 
222 IF N>@ AND IN{I,„ID=AF AND INCI, 

=)=1 THEN FRINT" TIARIGHTY"ITFL) A23EF 
z39Q IF IN{I,L)=AF AND N=Z AND INCI, 

zı=1 THEN FRINT ITFUIDI:N=l “73: 
zZ40 NEXT 114: 
242 IF AF=25 AND X8=1 THEN 52100 Z231r 
245 IF AF=16 AND IN{14,1)=-1 AND IN(15, 

1)>8 THEN SABROR 248: 
246 IF AF=5Z AND IN{45,1)=-1 THEN 59720 2188> 


247 IF AP=58 


NEXT 
IF Ar=41 












24 





T9 552 









FRINT AZ#: INFUT"KOMMANDD ";E# 
'ı FOR I=1 TO 18 21#71? 
IF LEFTF(EF,SI=LEFTE(COFEÜIN,A) THEN 322 246} 


AND IN(46,1)x>-1 THEN 59287 21295 





END INta1,127>-1 OR AF=42 AND INS 


.;>=1 THEN GSOSUR 52008 ABE2E 
‚, THEN SB208 <144> 


THEN GOTD IB294 Aasß> 


THEN 772 <159% 


Saa8 BB: 


3 {0552 

S40 GEOTD 573B <i1ld> 

ı IF AF=2 OR AP=Z THEN Xl=XlHi Z148> 

IF Xi1=2 THEN E0TG SB198 ABEF> 

IF Ar=1B AND IN(&,1)=-1 THEN 5530 Z151> 
AF=17 AND At="R"AND IN(®, 

er 5 THEN BOTD 50203 BF" 

AND Ar="5S"THEN GOTO SB28E AB2B5 
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: AND At="5S"OR Ar=44 AND Af="W"THEN 
Z1B1> 

AND IN(14,137>AF THEN 50102 1935 

AND Af="O"AND INISE, 


‚G0T0 Sa 2098} 
ZB,1){>77 AND At="D"THEN 58 
22195 


Ag="W"AND IN(I1,1)<>@ THEN 5538 





-1 THEN "Sa207 2165 





A&="WTAND FHIAF,13<SB THEN AP=PN(AF,1> 
TO S 2B71> 
AF=" 2>B THEN AF=PNIAP,Z 
ro 5 0755 
At=" {>80 THEN AP=PN{AF,ZI 
055 20 BShr 
AE="S"AND FNLAF,AFSSB THEN AF=PN{AP,2) 

DT D Ss528 ZiQ5> 


FBB IF ABt="H"AND FN(AF,S3C52 THEN AP=PN(AP,S) 
:50T72 75a " 21234: 
7iB IF AF="R"AND PNtAF,EIS:B THEN AF=PN(AF,6} 
S308 126> 
STD 552 BAU: 








THEN 832 A126> 
=-1 THEN SSS2_ 2158: 
xa55> 

<Ba5> 





Ir AR=7 AND IN{F,1?=B AND IN{4, 
13=AP AND AF="EINGA"”THEN IN(4,1)=9:50T0 S4182 


Z12E> 


758 IF AF=13 AND At="TUER”THEN GOTOD 52B2R <176> 
FR IF Ar=17 AND At="WAND"AND IN(Il, 
1}=8 THEN IN{11,1?=13:G0T0 5428 1A: 


BER IF AF=Z21 AND INt16,1)>0 AND A&t=ITF(LÖITHEN 
IN{1&,1)=B:60T0 5520 21135 
BiE IF AFr=54 AND INt49,1)>20 AND At="AUSGA"THEN 





EOTO 49228 xD069> 
B20 GOTD 5528 x141> 
8378 IF IX>5 THEN 948 rar 
E48 SOSUB 5540:G60SUB SA 2B5Q> 


85B IF X{>T2 AND XX>49 AND X<>28 THEN G0TO 55382 





“1635 
BeQ IF Xi>32 THEN 920 <077> 
878 IF AP=15 THEN PN(15,9)=16: IN(13,1)=8 
:60T0 5500 <0979> 
875 IF AP=15 ,THEN S@211 <064> 


sa@ IF AF=271 AND IN(165,1)=9 THEN PN(21,3)=22 
:IN{17,1)=2:G60T0 5522 2165> 
881 IF AF=25 AND IN(43,1?=25 THEN IN{43,1)=8 
:PN{25,4)=19: IN(42,1)=B8:PN (19,9 =25: g0TO 5528 
2189% 
Ssar IF Af=31 AND X5=1 AND IN(23, 
1}=AP THEN IN{2T,1)=B:FN(31,3)=32:6070 5522 
<a37> 


872 IF AF=Z21 AND INt1A,1)>9 THEN 59213 <14B> 
895 IF X5=1 AND AP=31 THEN PN(AP,S)=32 

: IN{51,1)=9:60T0 55808 21974> 
sEB IF AF=45 THEN FN(45,9=58: IN(28,1)=8 

:G0TDO 5598 x<139: 


925 IF AP=42 THEN FN{42,3)3=48: IN(26,1)=8 
;G0TD 5500 x 
794 IF AP=47 AND FN(AP,2)=9 THEN PN(AP,F)=52 
: IN(Z4,1)=2:50T0 5588 z 
FıB IF AP=28 THEN FN(32,2)=5B: IN(28,1)=B 


:50T0 5592 19333 
F2ZB IF AF=50 THEN FN(SB, 1)=44:1IN(31,1)=8 
:GOTD 5522 <146: 
5 IF AF=SI AND YI=B AND X=I8 THEN Y3=1 
5OTO 52702 x236> 


926 IF AF=57 AND X=48 AND Y4=B AND IN(44, 
1}=-1 THEN IN{41,1)=APr:Y4=1:60T0 5458 z219r 








730 5SOTD 55358 <251> 
Fa IF I2>4 THEN 112 7) 1355 
7523 SOSUE 55480 ZB20> 
F55 IF AFZB OR AFLSITFOISTITHEN GDTO 9578 x<181> 
T&B FRINT At: INPUT" GREEN}WELCHE 
WON STIZSPACEN":CH AEIFPF 

778 IF AF=13 AND INt11,2=B AND DF="D"THEN GOTD 

= 55) 1425 
784 IF APXHIE OR AF=13 AND C#i""D"THEN 1188 

S136> 

1a@8 SDTO 5338 <BaS: 
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-1542 IF INtX,12)=AP AND IN(X,23>B THEN INIX,1> 


1188 PRINT AT#F"XGREENINICHTS FASSIERT {7SPACE, 















WHITEF":BOSUE 5888: 60SUR SPORB:GOTO 164 <Z163> 
1120 IF I THEN 1188 B7&6> 
1148 GOSUB 55482 <21l> 
1150 GOSUR SO08 AZl1E> 
11AB IF AF=3 AND X=2 AND IN{X,1)>@ THEN INtZ, 

13=B:1IN(X,2)=8:60TD 5480 237} 
1178 SOTD 5SI20 X236> 
'1lBz IF T THEN 1220 x122> 
11862 IF INi1,1)£>-1 THEN 5529 <B87: 
118T KZ=SXZ+l:lIf x2>5 THEN 5475 zaasr 
1197 EOSUR 5540: 605UR SaBe x14B> 


1222 IF'AF=7 AND INCX,1)=AP AND INK, 


















13:8 THEN IN(X,1)=9:IN(4,79)=1:60T0 5528 <192> 
1218 G0TO 5532 <O2Q> 
1228 IF Iz THEN 1278 z1&B8> 
1230 G05 uB- 542: GOSUB sag2 <185> 
ıi248 IF X{:15 AND X{>5 THEN 5522 “1S7: 
12532 IF A IN{X,12)=AF THEN INOX,1?=Q 

: 50970 5528 2B93> 

IF: ‚3 AND X=5 THEN 59109 x1727 
suTro 532 <Aa7D> 
IF IX2>8 THEN 1322 2215} 

m SOSUB s542 ıB96> 


12 
4m 
H 


235 IF AF=7 AND IN(4,1)=B AND AF=LEFTFLITFeIL), 

SITHEN AF=8:60T0 5508 x124> 
1298 IF AF=S12 AND A&=LEFTF(ITFC5SI) ,DAND INt(Il, 

i’=Ar THEN AF=14:60T0 5508 <119> 
1298 IF Af=14 AND At= LEFTF(ITF(S22 ,SI THEN AP=13 


r} 









aof D 5502 SB2EF 
G0TD 5530 2121> 
IF 1X£59 THEN 1368 <215> 
SOSUB- Ss: SOSUR SDER <D3Q> 
xx AND IN(X,1)7:>-1 THEN 55380 <188" 

IF AF=51 AND FN{AP,S)=BD THEN FN(AP,S5)=54 
IN IISAR: GSOTD 5448 ABSE> 
IF AF=37 THEN IN{X,12)=9:50T0 5470 '<B55: 
GOTO 5578 <161> 
IF IX>r1B THEN 14182 <BF1> 
SGSUB 5540 <1855 
IF AF=27 THEN 1395 <B20> 





= GOSUB SB0R ” “1837 
1298 IF AP=4Q9 AND YZ=B AND IN{X,1)=AP THEN Yz=i 


: IN(35,1)=AP:PN{48,2)=47:60T0 5458 Ball: 
1395 IF AF=27 AND A&="GRABR"AND IN(46, 

Z)=@B THEN IN{46,3)=1:G60T0 5488 2B54> 
1422 5010 5530 . all 
1418 IF I<{>11 THEN 1468 2147: 





1428 GOSUB 5548: 505UR 5028 “120: 
1438 IF AF=18 AND X=7 AND IN(&,1)=-1 THEN 5928%& 
<BE2> 

144B IF AF=52 AND, X=37 AND IN(34, 
1)=AF THEN PN(52,9=-53:1IN(34,1)=-20:60T0 16892 

2187> 

1458 G0T0 5538 

1468 IF IZ>12 THEN 1518 

1478 GOSUB 5548 

1478 IF X4=1 THEN AP=54:50T0 55808 

15020 GOTO 3538 

Ian IF I{>1Z3 THEN 1588 

15 SOSUB 5548 

1528 IF GE’=3 THEN 5468 

1572 GSOSUR 5208 

1535 IF AF=16 AND X=14 THEN IN(X,1)=-1 
: IN{15,29=1:50T0 3508 4 Ei 

1536 IF AP=1B AND X=4 THEN IN{7, D=1 Ba: 








:560T0 55202 
1558 IF IN(X,2)=2 THEN 5530 5 
15882 IF IN{X,1){>AP THEN PRINT AT#" GREEN) "NICHT 
VORHANDEN WHITE": GOSUB 5888: GOSLUE SIOD 
:5CTO 1585 
1572 GOTO 5578 
15380 IF I<{>14 THEN 1548 
152 GOSUB 5542 
1808 GOSUR SBRD ö I 
1812 IF IN(X,1):X>-1 THEN FRINT AS=£" IGREENFICH 
HABE DAS NICHT {WHITE}":SOSUE 5829: 505UB 5925 








:SCTD 1864 17: 
14iz IF AF=197 AND At="SEIL"AND IN(®, 
1)=-]1 THEN S0OSUB 5455:50T0 1528 EIS: 


1615 IF Af=31 AND Ar="DIAMA"AND INK, 
1)=-1 THEN X5=1:50SUE 5465: IN(2@,21=2 


kan R7 


Listing »Grab des Pharao« (Fortsetzung) 


:IN{22,2)2=9: 5010 1828 
1222 IN(X,1)=AP:S0TO 5528 
1543 IF I{>15 THEN 17880 
1658 GOSUR 5549: G0OSUR SQZ2B 
1555 IF X{>7 THEN 353 ! 
15608 IF AP=1g AND IN(5,1)=-1 AND %9=2 THEN FNG 
F,1)=11:1N{B,1)=8:X9=1:50T0 1522 
1872 GOTD S552 
1290 FRINT AFZ"{GREENJDIE "ITFLUIEI" DEFFNET 
ICH{WHITE?F":GOSUR 5988:6070 122 
102 2r1& THEN 1758 
1718 
1758 
1755 .GOTO 742028 
ie@8 IF I<>18 THEN 1988 
1812 FOKE V+21,D:FRINT CHRE(14}, 
SRIEHT}SIE WOLLEN AUFGEBEN { 
1828 GET Atı IF At="J"THEN SYS 84: 
1872 IF AF="N"’THEN FRINT CHRE£(142):5 
:GOTO 168 
ı848 IF At=""OR Ar=" "THEN 1828 
1782 FRINT A4F"UNBEHRÄANNTES WORT" 
Pe " 
CEF"SFRINT. A4E"ZZASPACER" 


ieBe® 


17128 FRINT AZ" {175 


6070 184 Eu = Tn15 


5208 FOR X=1 TO 44 er. 
5218 IF LEFTF(AF,SI=LEFTE(ITFIXY,SITHEN RETURN 
<219* 


Sa20 NEXT BAR: 


SBZEB FRINT A4F; TABi2B) " ICYANFUNBEHANNTES WORT 

{WHITE?":FOR T=1 TO 1RA@:NEXT “ 
35275 GOSUB S5P20 
5242 X=9:50T0 154 
5488 FRINT AZF" {GREEN}GEHE IN RICHTUNG DES 

(5B) "{WHITE}":GOSUB 5820 
5421 PN(5,29=4:60T0 160 
5418 FRINT A3#F" {SREENIDURCHGANG IN DER MAUER 

{WHITEI"EIN(4,1)=0:X6=1:605SUB SBRB:G0TD 55808 

21757 
5420 FRINT A3#F"{GREENIEIN "ITF(S1)" WIRD SICHTB 
AR{WHITEY":GOSUB 5820:60T0 168 x229> 
54308 FRINT ASF"{GREEN?ES KLINGT HOHL{11SPACE, 
WHITE?":GOSUE 5820: 50TD 1860 x8953> 
5448 PRINT A3F" {GREEN}"ITF(9)" HAT SICH OBEN 
VERFANGEN {WHITE}"=:X4=1:60SUB 5820:60T0 162 
“215> 
5452 FRINT AZ#"{GREEN}EIN "IT#(11)" WIRD SICHTB 
AR{WHITE}":GOSUB 5800: GDTO 168 ı255> 
5455 PRINT ASF" {GREENF"ITF(9N" HAENGT HINUNTER 

{WHITE>":GOSUB 5820: RETURN <B1l> 
5458 PRINT ASF"{GREENJER ENTHAELT EIM "ITFt413" 

{WHITE,INST}":G0SUB 5880: 60T0 168 <BO3> 
5468 PRINT AS#"{GREEN}SIE KOENNEN NICHT 50 VIEL 

TRAGEN {WHITE}":605UB 5898:GDTD 160 <231> 
5465 PRINT A3#"{BREEN}"IT$t28)" IST DAS FEHLEND 

E "ITF(52)" DER "ITF(6) "{WHITEY”":GOSUB 58B2 
ı RETURN <Ba5> 
5478 PRINT AZF"XGREEN}"ITF(N" IST HINUNTERGEFA 
LLEN{WHITE}":GOSUB SBOR:GOTD 168 <835> 
5475. FRINT A3$" {GREEN}"RIGHTFLITF(1),53" IST 
JETZT STUMFF{WHITE}":GOSUB SBBR: GOSUB 5728 
:GOTB 164 . 249775 
5488 PRINT ASF" {GREEN}ER TRUG EINE "IT#(46)" 
BEI SICH{WHITE}”":GOSUB 5808:60TD 150 <188> 
5502 GOSUB 59702 2236> 
5518 PRINT A4#"<CYAN>IN ORDNUNG ZWHITE}" 
:FOR T=1 TO 192B:NEXT:IF I=13 THEN GE=GE+1 
236> 

5522 IF I=14 THEN GE=GE-1 

5525 GOSUB S6BB:60T0 160 

SI32 GOSUB SYIAR 

5535 PRINT A4#" {CYANFNICHT MOEGLICH {WHITE}" 
:FOR T=1 TO 188: NEXT:PRINT A433" {15SSPACEY" 
:G0TD 164 <173> 

S540 FRINT A4$; TAB{25): INPUT Ar: AS=LEFTF(AF,S) 
:RETURN <117> 

S5aDa FOKE V+21,B:FDKE V+28,B:POKE V+23,2 
:FOKE V+29,B:RETURN 

5880 FOR T=i1 TOD S0@2:NEXT:RETURN 

5708 PRINT AF+" 13975SPACE}” 

5718 PRINT A4F"X3B8SPACE}": RETURN <197> 

1BAB2 AD=57344 “1177 

ianiı READ X:IF X=-1 THEN GOTD 45000 x244> 


zx221> 
<a92> 
<B18> 


<212> 
<297> 
x152> 





1B028 CG=AD+X*8: FOR I=Q TO 7:READ O:POKE C6+1,0 
:NEXT:GOTO 120818 <BB1> 
18118 DATA 28,7572,243,2987,63,255,259,259,255 
<150> 
18128 DATA 30,255,255,255, 255,252,243,207,63 
153 
1813@ DATA 31,255, 255 235 255,255, 255, 18,248 
“154° 
‚255,255,255,15,248,255,255 
“176> 
5,255,15,248,254,254,254,254 
21847 
S2,254,254,254,254 8877 
355, 259,63,207,243,252 
z18> 
43,252,255,25959,259,255 
A22lr 
12178 DATA 39,0,248,199,63,127,127,127,127 21343 
10289 DATA 40, 255,255,240, 15,255, 255, 255,255 
<234 > 
18218 DATA 41,255,255,255,257,240,14,254,254 
SDAD> . 
10220 DATA 42,255,255,253,295,255, 
B0B> 
10238 DATA 43,254,253,251,247,239,223,191, 127 
x059> 
DATA 44,254 ,254,254,254,254,254,254,254 
“075° 
DATA 45,127,127,127,127,127,127,127,127 
<xB78> j 
DATA 46,755 ,255, 255 ,2595,259,299,255,255 
2185> 
DATA 47,0,255, 255,259, 259,259, 259,299 
<BaB: 
DATA 48,8, 754,254, 254,254 ,254,254,254 
<Bl2> 
.BATA 49,8,127,127,127,127,127,127,127 
xpi6> 
DATA 59,177,191,223,239,247,251,2 
-128> 
DATA 51,2239,239,239,239,239,223,191,127 
DAR: 

DATA 52,224,239,239,229,239,239,239,239 
xBR&: 
,,239,239,239,143,47,2 
LR92> 
239,239,239,239,239, 239,239 

<182> 
DATA 55,754 ,254,2754,254,254,224,235,23 
“B2B> 
DATA 56 „235,299, 295,295, = 
<o45 
DATA 57,254,254, 254, 254,0,254,254,254 
2192% 
1239,2539,239,239,229,239,224 
“BAB: 
239 ,239,239,239,247,251,253,254 
<a73> 
DATA 68,239,239,239,239,229,239,239,15 
zBzS% 
DATG 61,739,239,227,233,226,239,239,2397 
<BFL> 
DATA 62,239,239,239,239,159,239,229,2397 
xuS58: 
DATA 29,15,279,259,279,239,259,2 
@71> 
DATA 643,127,127,127,127,8,127,12 
2954> 
65,255,255,259,299,255,17,2 
<ZBöl> 
67,08,255,255,0,8,2,28,8 
a ga 239 
<178> 
69 , 254,254, 254,254, 254,2534,2490,15 
297: 
78,239,237,229,229,248,239,229,239 
£179> 
294, 2594,254,2754,254, 
BSR" 
72,127,127,127,127,127,127,127 
2067° 
72,15,2408,255,2559,255,253 


2148> 


19148 DATA 33,255 
18158 DATA 35,25 


18150 DATA \222 
19178 DATA 


18198 DATA 38 ,63,207,2 


255,2490,15 


3,254 


DATA 53 39 ,239,239 


DATA 54,8, 


255,239,95, 241 


DATA 27,22 


DATA 59, 


„239,23 


71 254,254,0 
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Listing »Grab des Pharao« (Fortsetzung) 
106828 DATA 74,248,15,255,255,253,255,295,255 


<151> . 
10438 DATA 75,255,17@,253,170,255,170,255,172 
£206> 
10648 DATA 76,85,85,85,85,85,87,95,255 
18650 DATA 77,95,85,85,87,127,255,255,255 
18462 DATA 78,85,85,895,85,245,255,255,255 
10672 DATA 797,85,85,85,85,85,245, 255,255 > 
10489 DATA 80,85,85,85,85,85,85,245,255 <241) 
106485 DATA 81,62,207,243,257,254,254, 254,254 
<210> 
10690 DATA 82,254,254,254,254,15,249,255,255 
2165 
13695 DATA .83,127,255,15,248,255,255,255,255 
<224> 
10702 DATA 84,257,242,206,62,254,254 254,254 
«225% 
1725 DATA 85,254,254,254,254,252,243,207,63 
<234> 
1@712 DATA 86,255,255,255,255,252,2472,206,62 
241 > 
12715 DATA 87,255,255,255,255,248,14,254,254 
12475 
10728 DATA 88,254,254,254,254,254,254,240,15 
{250% 
19725 DATA 89,254,254,240,15,255,255,255,25 
<@04> 
10730 DATA 98,126,190,2772,238,246,250,257,254 
<Q44% 
18735 DATA 91,127,127,127,127,63,207,243,25 
<B@1:> 
12748 DATA 72,14,240,255,255,255,255,255,25 
<B14> 
12745 DATA 93,96,99,185,188,112,118,119,11@ 
<2@1> 
19758 DATA 94,6,198,158,54,118,118,118,118 <182> 
18755 DATA 95,118,112,110,118,112,119,118,110 
<@14> 
12768 DATA 97,118,118,118,118,118,118,118,118 
<B85> 
18785 DATA 98,119,118,118,110,108,185,99,15 
<218> 
DATA 99,118,118,118,118,54,159,198,248 
“Q48: 
DATA 120,0,2,0,8,8,15,63,127 <B14> 
DATA 181,15,31,63,127,255,255,255,255 
<248> 
12785 DATA 102,249,248,252,254,255,255,255,255 
<153> 
19770 DATA 123,2,0,20,2,0,248,252,254 <129> 
19795 DATA 194,168,168,168,168,168,168,90,8 <231> 
1B820 DATA 105,170,172,178,17@0,178,172,0,8 <195> 
12225 DATA 106,168,168,168,168,168,168,168,168B 
<209> 
1@818 DATA 187,167?,162,162,162,162,162,162,162 
<167> 
18815 DATA 108,2,0,168,168,168,168,168,16B {255} 
109329 DATA 199,172,170,178,170,170,172,170,178 
<«171> - 
10825 DATA 110,8,0,170,170,170,170,170,17@ <Z16> 
12838 DATA 111,0,8,129,195,255,255,255,255 <249> 
10235 DATA 112,255,255,248,6,184,191,255,255 
<112% 
10842 DATA 113,0,2,1,3,15,255, 255,255 <248> 
18845 DATA 114,0,0,128,192,224,255,255,255 <003> 
12B5@ DATA 115,2,9,0,255,255,8,0,0 094 > 
18855 DATA 116,193,182,182,128,193,227,193,193 
“2565 
12862 DATA 117,129,129,129,129,255,255,255,255 
<242> 
10865 DATA 118,255,219,129,195,195,129,219,255 
<254> 
10900 DATA-1 <1593 
12022 FOR I=B TO 62:READ B:POKE SQB1&+1,D:NEXT 
«217> 
‚2,0,0,0,02,2,0,2,02,2,2,0,0,2, 
‚2,2,2,0,2,8,2,0,0 <250> 
‚2,0,128,2,1,0,8,3,255,248,4,B, 
8,2,0,0,8,8 <@22> 
62:READ B:POKE SABBB+I,G: NEXT 
<222> 
12025 DATA 8,0,2,8,2,0,0,2,2,8,8,0,0,2,0,2,2,0, 
0,52,0,2,120,2,2,254,0,1,255,128 <B13> 


"12@01 DATA 8,0,9,8 

2,2,2,0,0,9,8,0 

12202 DATA 0,0 
2,8,0,0,3,8 


12884 FOR I=D 


BD, 
8, 
64 
8, 
is} 


F 
y 
, 
+ 
T 
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12084 DATA 3,255,224,7,255,248,15,255,254,31, 
255 ,252,63,255,248,127,259,248,8,8 <184> 
12027 DATA 2,2,2,2,2,8,8,8,0,2,0,2,2 <B24> 
12810 FOR I=® TD &2:READ G:FOKE 52944+1,0:NEXT 
2295 
12811 DATA 9,0,64,0,64,128,2,33,80,1,36,128,0, 
298,76,17,8,88,18,657,32,34,38,64,36 22a9 > 
12817? DATA 1909,48,20,162,64,8,164,128,4,153,192, 
5,22,48,2,28,168,5,538,2,8,169,8,4 “206> 
12813 DATA 72,1972,2,88,0,8,76,8,0,795,0,0,96,8 
2028> 
12815 FOR I=2 TO 42:READ Q:POKE S1RRB+1,Q:NEXT 
226: 
12814 DATA 3,252,8,2,168,8,3,72,8,3,92,2,3,72,0, 
3,72,8,15,255,8,15,255,2,15,255 2136> 
12817 DATA 98,15,255,208,15,2595, 288,15, 252,9,14, 
168,2,7,252,8,7,232,8,3,292,0,3 <108> 
12818 DATA 252,2,2,178,8,2,138,0,8,163,128,2,9,0 
15935 
12078 FOR I=2 TD S2:READ B:FOKE S1272+1,0:NEXT 
23ER 
12921 DATA 98,08,8,177,251,254,127,251,254,127, 
249,254,8,08,2,127,63,60,127 2079: 
12022 DATA 127,198,127,127,198,62,127,190,0,8,8, 
127,2321,234,127,239,2594,127,239 x195> 
12023 DATA 254,127,287,252,2,0,2,57,255,158,125, 
255,222,125,235,222,1259,255, 228 21857 
12224 DATA 90,8,8,255,255,255 22337 
12024 FOR I=@ TO SZ:READ D:FOKE S1136+1,D: NEXT 
A23P: 
12827 DATA 95,2553,250,95,255,258,88,0,10,82,0, 
10,88,2,258,88,8,26,92,8,58,72,2,58 “244> 
12025 DATA 94,8,122,94,0,122,95,8,252,95,2,2582, 
95,127,259,75,126,252,94,255,122 “220: 
12827 DATA 772,255,186,91,2559,218,87,259,234,779, 
255,242,127,259,254,0,0,2 2139: 
12831 FOR I=2@ TO &2:READ GrFOKE S120M+1,0:NEXT 
K2E6> 
12972 DATA 92,8,2,2,0,0,3,2,8,0,2,2,2,2,0,2,31,0, 
8,14,8,8,14,2,0,27,2,0,42,128,8 <B34> 
12833 DATA 113,192,2,1085,192,08,59,128,2,21,2,0, 
14,8,2,2,8,0,2,2,08,2,2,0,2,2,0,0 28763 
12034 DATA 8,9,0,8 <248> 
1729356 FOR I=2 TO 42:READ GB:FOKE S12644+1,D:NEXT 
A252: 
12038 DATA 8,2,28,2,8,02,2,2,0,1,85,128,2,172,54, 
2,178,2,2,175,8,2,173,0,2,174,192 Z1735 
122397 DATA 2,175,192,2,175,8,3,253,8,5,255,2,0, 
255,2,8,242,2,8,242,8,0,242,0,3 <Q8&> 
122343 DATA 752,8,7,2572,8,8,8,08,9,2,8 2887> 
17242 FOR I=B TO ST: READ B:FOKE 51378+1,0:NEXT 
<B23> 
12947 DATA 8,8,8,2,02,2,2,0,2,0,2,2,2,2,0,8,2,0, 
16,6,8,20,57,128,21,192,112,16,& 
179244 DATA 17,8,121,194,3,178,57,28,128,5,3 
135,178,24,1172,258,7,14,78,2,225,142 
12845 DATA Q,58,48,0,1,1792,2,2,0,0,2,2 
12947 FOR I=@ TO ZZ: READ D:FOKE 513972+1,8: NEXT 
2807: 
179848 DATA 9,02,5,15,255,748,12,0,82,12,0,82,18, 
Q,52,19,255,220,22,2,48,22,2,40 2877: 
12847 DATA 78,2,48,39,235,2298,40,2,22,48,8,20, 
42,3,22,77,255,242,802,0,12,80,9,10 Saal: 
12852 DATA 298,8,12,159,255,249,1698,9,5,168,2,5, 
2535,2553,259 
12952 FOR I=B TO S2:READ DEFOKE 51456+1,0:NEXT 
AB15> ö 
2,0,2,2,2,2,8,2,8,0,2,56,2,8,76, 
19,64,2,47,1£9,9,110 <B745 


22035 


12058 DATA 16,2,8,21,0,2,31,64,2,31,80,0,31,213, 
2,51,254,64,31,255,64,31,295,64 <171> 

17859 DATA 31,255,298,21,255,244,21,85,84,7,255, 
744,1,255,244,0,127,244,0,22,244 020: 

12068 DATA B,5,244,0,1,744,8,0,116,0,2,22,2,2,4, 
2,9,0 21485 

122582 FOR I=ß TO 42:READ Ü:FOKE S15B4+1,0: NEXT 

8275 
129063 DATA 0,8,15,2,2,80,9,1,240,0,7,228,0,7, 
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788,2,75,2709,1,255,208,5,255,208 { 
12054 DATA 71,255,728,31,255,298,21,85,88,31, 
255,54,31,252,0,22,212,2,31,288,2 12EN 
17065 DATA 21,64,8,29,2,0,20,2,2,15,8,0, 2,2,0,0, 
3,8 949% 
FOR I=0 TOD SZ: READ D:FOKE 51645+1,0: NEXT 
SE 
12058 DATA 8,0,0,02,2,8,8,2,2,0,08 »0,3,255,192,2, 
9,64,2,239, 64,2,239,64,2,15,64,2 2133» 
12057 DATA 740,64,2,247,64,2,247, 64,2,7,64,2, 
?24,64,2,739,64,2,279,64,2,8,64,72 182% 
172878 DATA 347 ,64,2,247,68,2,0,64,3,255,192 
ZBBTF: 
12272 FOR I=B TO 42:READ D:POkE 51717+1,9:NEXT 
<BQEB> 
12873 DATA 0,2,3,2,2,0,2,2,2,2,2,2,8,0,2,0,2,2. 
2,2,8,2,0,2,8,9,8,2,55,2,8,59,2,8 <1BS> 
17974 DATA 215,192,8,191,128,8,284,172,8,1”1, 
178,2,255,192,9,187,128,8,255,172,8 zes 
122375 DATA oa 2 ,55,8,0,59,0 <B63 
12977 FOR I=8 TO &S7:READ Q:FOKE S1776+1,G0:NEXT 
<B45> 
12978 DATA 8,8,2,9,56,2,2,124,8,2,84,0,2, , 
2,42,0,0,56,2,1,255, 0,2,214, 128,2 “4 
12079 DATA 238, 128,2,214,128,2,37,128, 2,254 ; x 
7=4,0,0,1274,8,8,198,0,2,128,2,8 Z1Ba} OR =8 19 & SB: FÜKE Aa meNExT 
2QaD DATA 128,2,0, 128,0,0,108,0,2,230,0 £ > Ä } 
2 FOR I=8 TO 42: READ D:FOKE 51842+1,0:NE ‚2 
<B42 2,2,0,0,0,8,L 
FE RRE 12141 DATA 33,8 
,62,2,8 ZB9F5 1098,0,7,24, 
ITBBA DATA 9,2,0,0,2,8,2,0,8, 12142 DATA 2,8, Fu 
2,0,80,0, 2096* 12144 FOR I=B TO &2:READ 
12m84 FOR I ZAD B: FOKE S19B4+1,Q:NEXT <1a7:> 
j ; 17145 DATA 3,02,0,9,2,2,2,122,2,0,48, ‚2,2,48,0, 2, 
17987 DATA 2,0,0.,0,0,0,0.0,2,0,0,0,2,0,02,225, 120,8,2, 120, 0,1,58,8,2,121, 2, H ; 
128,8,30,.2,178,8,48,112,1,224,15,14 2188 12126 DATA 128,128 \8,252,84, 8,217,64,9,182, 
12088 DATA 5,2,172,8,90,51,193,192,12,14,58,8,48, 122,128,3,119,2,3,182,80,2,287,8 
5,8,8,82,9,0,28,2,2,2,2,8,8,0,2,8 £144> 12147 DATA 1,777,80,2,228,9,2,120,0,8,2,2 : 
12097 DATA 8,2,0,2,0,8 <Pz1> 12149 FOR I=® TO &2:READ O:FOKE 52872+1, O:NEXT 
12891 FOR I= 8 TO &2:READ G:POKE 5196B+1,0:NEXT 1135 
2B62> 121598 DATA 2,2,0,0,2,0,2,255,172,8,255,1972,8, 
12092 DATA 8,2,02,8,2,0,0,0,2,0,08,0,8,21,84,2,74, 255,192,1,128,758,1,128,75,1,128,95 20375 
148,1,42,129,4,169,164,1B,1&66 878: 12151 DATA 7,2, 48,3,8, 48,3,0, 48,6,20,24,56,2,24,6, 
12073 DATA 164,95,98,164,126,154,164, 186,154, 8,24,17,8,12,1?2,8,12,12,8, 12,15 = 
144,1906,154,124,186, 153,205,106, 15 858} 12152 DATA 255,252,13,154,236,10,205,145,19,255, 
12294 DATA 2a2, 35,90, 6B, 2,80,13,0,0,2, m ‚2,2,2,0, 232 A224 
2,2,2,8 el 12153 FOR I=2 TO &2:READ S:FOKE S2736+1,0: NEXT 
12096 FOR I=8 TO &2:READ O:FOkKE 52957+1,G: NEXT <119P> 
<BS0:r 12155 DATA 8,2,0,2,2,0,2,0,2,0,0,0,2,0,2,8,42,8, 
12297 DATA 255,255,255,128,36,1,128,58,1,128,66, 28,21,0,2,38,2,8,21,2,0,42,2,02,21 A1IEH 
1,1798,126,1,1289,129,1,128,255,1 <@il> 17156 DATA 2,80,178,128,0,85,64,0,170,128,0,85, 
12978 DATA 129,8, 129, 129,255,129, 132,2,65,171, 64,8,170,128,0,85,64,2,8,8,2,0,0,0 <B56a> 
255, 193,132,0,33,13 15,255,225,136 2175 12157 DATA 2,0,2,9,8 <2Q7:> 
12099 DATA 0,17,143,255,241,144,8,9,159,255,249, 12159 FOR I=@ TO &?:READ O:POKE S280A+1,0:NEXT 
1690,8,5,191,2755,257,192,0,3,255 <B12> <116> 
12109 DATA 255,255 : > 12168 DATA 8,2,0,2,8,0,0, 127,128,0,125,128,8, 
12182 FOR I=B TO &2:READ G:POKE 529296+1,0: NEXT 118,128,0,279,172,0,237,1972,8,254 “2295 
xB66: 12161 DATA 192,1, 166,224, 1,223,224,1,254,224,3, 
12183 DATA 2,0,0,0,28,0,0,3,128,0,0,64,0,1,128, 157,112,3,127,2490,3,245,240,6,251 <098> 
2,14,0,0,48, 8, 2, 64, 2,0,48,8,2,12 <161> 1216? DATA 184,7,55,24,7,255,248,8,8,2,0,2,8,2, 
‚128,2,1,2 2, 6,8,8,24,8,2 2,2,2,0,8 <161> 
5 x : 12164 FOR I=B TO S7:READ Q:POKE 52864+1,0: NEXT 
<131> 
12145 DATA 8,24,0,0,99,0,2,126,2,0,126,0,2,126,, 
0,0,62,0,8,62,08,0,652,0,02,24,2,1 <158> 
12166 DATA 755,128,3,118,192,5,118,1792,3,110, 
172,1,223,128,02,126,2,8,126,0,2,122 <078> 
12157 DATA 8,8,122,98,0,102,0,1,255,128,7,255,224 
<858> 
15202 RETURN <B96> 
ı170@B IF AP}? THEN 17188 “Ban 
198981 IF AF=7 THEN 17208 <BAS> 
17002 IF AP=& THEN SOSUB 198035 2190> 
1920 FOKE 53278,FPEEK(5377B)0OR 16: POKE 53283,7 
ı FOKE 527287,6& 
19084 FRINT TAB(1B)"IBLUEF zur... 


[5 
2 


12283 DATA 8,0,8 
2,2,2,2,2,2,8 „a 
2 „ „2, 

2, 


F 
K 
28, 








I728& FRINT TAB{LBI" 

178098 FRINT TAB(IBD" 

19818 FRINT TAR{19)"..... GREY SPLANDRLIG.1 BLUE} 
...» {GREY Z3LDPR{LIG.BLUEF. ...”" 21935 

1981? FOR T=1 TO 12:PRINT TAB(1B)"X<GREY 33 " 
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KERKKEKEKKKKK HER ER KKE TS NIEXT 21924: 
irA31 GOSUB 21858: RETURN Z23B> 
17935 FOKE V+Z1,FEEKtV+ZLIOR 12ZB:FOKE 50175,27 

:FOKE V+14,145:FOKE V+15,98: POKE V+48,9 <B92> 
17034 FOKE V+ZE,FEERW+ZDIOR 178 

:FOKE V+29,FEEK(V+2P)0OR 128:RETURN 2138> 
17198 IF AF=15 OR AF=18 OR AP=19 OR AP=28 OR AP 

=21 OR Af=27 OR Af=468 OR AF=52 THEN 197118 

545 

17102 GOTO 19997 1245 

1971128 FRINT TAB{IDI"{BROWNIEN. „au nneunn nn TE" 
<170> 

17111 FRINT TABt(123"..BX. 2... nueME.." 

17112 FRINT TAB{12)"..„.BE- ..NEyuu." 

17113 FRINT TAB{LZY"IHRe,.1/70,.XH 2" 

17114 PRINT TAB{12)". „. „FSZE6aYg-,.." 

17115 FRINT TAB(122". „.,..- FISSPACEFE- .—,.." 
«162: 

1711& FRINT TABL1ZDI"//W/BOF/FIZSPACEIKFL/LIF" 
218B8> 

17117 FRINT a TEE .." 

17118 FRINT " 

19128 FRINT TABADI "AL. 4 ee 

17121 FRINT TABt1ZDIY uatnaununen Zun." 

1F122 FRINT TAB(123". 

19123 PRINT TAB(12)".+ 

197124 FRINT TAB{Ll2)"-+ 

17127 IF AF=19 THEN 29815 

1FB2Z GOSUR 271832: RETURN 

19132 GOSUR 21832: RETURN 

17222 are FB,FEERSTETOIOR 15: FOKE 

ıFO Be 7 


17284 


xB77 5 
8745 
2B48” 
3295 


18 
FRINT TARBtIBF" IITINTITENZETINTTIET" 
PRINT TAB 1) "LELEFELESFERSEFEE 
FOR T=1 TO S:FRINT TAB(1LB)"TIOTETTETTTTET 
FFFETT" NEXT <BIE: 


17218 FRINT TARilBO)" S{SSPACEISSENSSSSS" 


Bil 


: T=1 TO ArPRINT 
KERKERKEKKESK 
7 IF X&=1 THE 
ıPOKE 58175,3 


FOKE V+4&,7 

SOSUR 21058 

RETURN 

FOKE 53278,PEEKt 
TAB (18) " {ER 


PRINT 
13 PRINT 


IF AF=SRB THEN FR 
16RISHTITISRICHTITLARISHTI 
SaB15 IF AP=1?7 OR AP=S2 OR Ar 
:REM TREPPE 
22215 GOTO 22028 
28217 FOKE V+21 ,PEEK(V+ziDoR 
:POKE V+14, 16D:FOKE v+15 


NT ZERDIUEN „HOM 


DB 





:IF AP=19 THEN 19 
ZEBZR IF A z 


22821 FOKE V+21,PEEEt 


:FOKE V+14,15 9: FOKE ur 
2BA22 FOKE 
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:FOEE V+H29,FEEE WHEPIOR 127 
ZBREZ FRINT"{ERDAN, HOME SDOUN, 17RIGHT! 
TDORN , SLEFTI.+..2. SDOMN, BLEFTI=. - 
GLEFTF" 
zpa24 FRINT"ÄUF,)17RIGSHT} 
DOWN „SLEFTF" 
zar2a0 IF AF=1IR THEN 21081 
zı1aaB IF FN(ÄAF,1:=R THEN 71025 A = 
21281 FOEE 49263 ,55: POKE 47264, 26: FOEE 49497,5372 
:POKE 494834,48: FOKE 474437,54: FOKE 49444,49 
' 189% 

212802 FOKE 49487,88:FOKE 47484 „44: POKE 49527,7 
:FOHE 497524 ,37:FOKE 49563 ,53: FÜKE 4977264,44 
288: 

21023 FOKE 49585,27:POEE 49684,71:FOEE 49447,88 
:FOKE 49644 ,4&: FOKE 49683,51 Bar: 
21985 IF PN{AP,2)=0 THEN 21810 ABER: 
212906 FOEE 47377,89: POKE 49388,65: POKE 49419,49 
:FOKE 49428,29:POEE 49459,49: POKE 47468,54 
z2lb> 


DOWN, SLEFTI 


21287 FOKE 49499 ‚45: POKE 4952,68: FOEE 49539,64 


:POKE 49548,67:POKE 49579,45:POKE 49589,61 
<21l> 
Z1B028 FOKE 49619,72:POKE 49670,6R: PÜKE 49659 ,46 
:POKE 49668,68:FOKE 49708,59 <B94> 
21218 IF PN(AP,3)=BQ THEN 21238 “877 > 
21813 FOKE 49418,36:POKE 49411,67:POKE 49412,67 
:FOKE 49413,39:POKE 49449,48: FOKE 49450,44 
. 2192% 
zZ1014 POKE 49451,37:POKE 49452,32:POKE 49453 ,45 
:FOKE 4945449: POKE 49489 ,44: FOKE 49490,44 
2>> 
2: POKE 49492, 32: POKE 4949%,4 
:POKE 4953844: POKE 49414,35 
22} 
FOKE 49521, 108: POKE 49532,187 
„45: POKE 49534 ,A9: FOKE 49569,44 
Re <DE2> 
„#6: FOKE_49572,46: POKE 49573,50 
FOKE_ 49610,46:POKE 49611,46 


; FORE 47491, 
KE 49527 ,48 


: POKE 49613, 46: FOKE 494097,44 
.2124> 
B:IF INtIR,1}=AP OR IN(2S, 
IR I =APF OR IN{28, 
EN 21034 “@19> 
(25, 1)=AF OR IN{Z6,1)3=AP THEN FIR 
<BS4> 
IN{IZ,1>=APF OR INt(17,13=AP OR INSA, 
“OR IN{42,1)=AF THEN Zi=1:B070 21056 


T" {HOME ‚7DOUN, 1BRIGHT ,4SFACE ‚DOWN, 
SPACE „DOWN „ALEFT ,45PACE ‚DOWN, 4LEFT, 


Ss 2ıaS8 


"THEN FOkE V+1B,161:FOKE Y+11,78 
FEEKAV+ZF)OR 32 <18A> 
THEN FRINT" {HOME , ADOWN, 1BRIEHT, 
LEFT, SPACE ‚DOWN, ALEFT ,ASPACE, 
‚DOWN, ALEFT,4SPACE}" : 
THEN 21068 
V+21)OR 1:POKE 50168,26 
YV+Hl,12RRPOKE V+39,11 
+22)0R 1 
+2F)OR 1 
PTHEN 21978 £ 
21 FOKE V+21, PEEK(V+Z1)OR 128:POKE 58175,29 
'OKE V+14, 150: POKE V+15,110 2213 
FOKE V+48,B: FOKE V+37,9:POKE V+38,1 
IE We2E ‚PEEK (V+ZS) OR 128: FOKE V+28,178 
<B35 
63 POKE V+29,PEEK(V+ZF)OR 128 E14 
IF IPKZ,1)<>AP THEN 21088 <25B> 
FOKE V+21 EEK (+21) OR 64:FOKE 58174,28 
:FOKE V+12,18M:POKE V+12,92 <13Q> 
21872 POKE W+45,15:FOKE V+29,PEEK(V+ZP)OR 64 
:POKE Y+23,PEEK(V+23)OR 64 <B4R: 
Zi2Ea IF Inca, 13<>AP THEN 21098 <270> 
1081 FOKE V+21,PEEK(V+21)OR 128: POKE 52175,38 








kanal 
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:FOKE Y+14,158:PODEE VY+15,108 x241> 
zZ1882 FOKE V+46,97 <BiB> 
zı@7@ IF IN(S, 1<SAP THEN 21122 ZB7E> 
21871 IF INt14,1)7>-1 AND INtIA4, 

1)<>39 THEN 21895 z247> 


21292 FOKE V+21,FEEK(V+21)OR 128: FOKE 59175,93 
:FOKE V+46,5:POKE V+14,195 <x161> 
21873 FOKE V+15,132:POKE V+27,PFEEK(V+29)0OR 128 


:G50TD0 21188 xB92> 
21895 X8=1:PODKE V+21 „PEEK(V+ZIVOR 128 
:FOKE 52175,46:F0OKE V+46, <B88> 


21896 PODEE V+14,197B0:POKE v+15, 140: FOKE V+29,128 
:50TD 164 <213> 
21108 IF IN(4,1){>AP THEN GOTD Z1118 z222> 
z2ı121 POKE v.21, PEEH {V+21)DR B:POKE 58171,33 
:FOKE V+28,8:POKE V+6,141:POKE V+7,1B3 4212> 
21192 FOKE V+42,11:POKE V+37,2:POKE v+38,15 
£<176> 


z111@ IF IN(7,13<>AP THEN 21128 x997> 
21115 FRINT" {HOME , BROWN, SDOWN, 15RIGHT} , BIDOWN, 
ZLEFTIIBIDOWN, ZLEFT?- ,„TDOWN,ZLEFT}-, DOWN, 
ALEFTFIF x«B30> 
21128 IF IN{9,13X5AF THEN 211382 118> 
zı121 IF Af=19 OR AF=51 THEN 21178 2222 


Zii22 FOKE YW+21,FEER 





V+HELIOR ZıFüOKE 58167,34 




















FOKE V+2, 150: FOEE V+3,140 2697: 
=i FOEE V+29,FEEE{V+RP)DOR DEFOKE YV+RQ,B 22445 
zıı128 IF IN{IL,13E>AP THEN 21148 Z162} 
zı1 FOKE YW+Z21,FEEE(V+21)0OR 54:FOKE 58174,37 

ıFOEKE Y+lZ,EIS:POKE V+13,122 2357 
24132 FOEE Y+28,854:F0OHE YV+T7,B:POKE V+3B,7 

:FOKE VHZZ,FEER W+ZIIOR 64 z161> 
21148 IF IN{IZ,1){>AF THEN 211582 21742 


E V+21,PEEK{V+Z1)OR 54: POKE 58174,38 
V+12,111:POKE V+12,119 <245% 
E V+28,64:F0KE Y+37,BD:POKE V+35B,7 
V+27,FEEE 2 <171> 
IN(14,1)<>AF THEN 21168 £187> 
E v#21,PEEK(V+21)0R 4:POKE 50170,32 
4+4,172:POKE v+5,138 <B95> 
!E Y+41,12:POKE V+29,PEEK(V+HZFWIOR 4 











ziil4l FOEE 















VHZZ,FEEH (V+ZEIOR 4 B0S> 
Zi1öß IN(15,1){>APF THEN 21178 21995 
21161 POEE V+21,FEEE(V+21)OR 12B:FOKE 58175,36 
:FO Y+14,172:FPOKE V+15,142 <B&3> 
zZi1&2 FÜKE VY+4&,8:FOKE V+29,FEEK{V+HZ2P)OR 128 
21385 
zii72 IF ING&,IIZSAF THEN 21180 “zılr 
z1171 PRINT" {HOME, 7DOWNI"STABCZAN"F" Z2BD4> 
ZIIB2 55 
3 DECKE 





«162> 
21131 FOKE Y+21,FEEK(V+21)OR 128: POKE 59175,43 
per} 


:FOKE Y+14,172: FOKE V+15,3& 0365 
z1182 FOEE Y+45&,8: FOKE V+29,FEEE(V+2F)OR 128 
A139: 
Zi1ı28@ IF IN{ZB,1)<>AR THEN 21210 
IF AF=TI1 THEN FOKE 55599,8:650T0 712182 
“1923> 
Z1ZRB2 FOKE VY+21,FEEK(V+21)0OR 8S:FOKE, 58171,42 
:FOKE V+6,1808: FOKE V+7,158:FOKE V+42,B <058> 
2ijz18 IF IN{ZI,1)<>AP THEN 21220 S2AE> 
21211 FOKE V+21,FEEHK(V+Z1)OR 128 
: IF IN(46,2)3=2 THEN FOEE V+14,150 
ıFOKE V+15,121:60T0 21213 
ziz1E FOKE V+14,155:FOKE V+15,115 
zZıizizs FOKE 58175,44:F0OHFE V+458,9:FOKE V+37,8 
:FOEE V+Z8,1:FDKE V+22,FEEK (V+Z3)0OR 128 <BBL> 
21214 FOKE v+29, FEEHK (V+29)0R 128: POKE 49299,50 
: FOFE 49212 ,50: FOKE 492528,47:POKE V+28,128 
20775 
21215 POKE 497251,47:FOKE 49252,47:FOKE 49219,45 
<a56> 
iz2D IF IN{ZZ,1)<>AP THEN 21238 22545 
zı221 FOKE V+21,FEEK(W+ZI)OR 128: FOKE 59175,41 
<13B> 
21222 FOKE V+14,198:FOKE V+r15, 195: FOEE nn, 


230: 











:FOKE V+46,7 2072 
21223 FOKE v+23 ,PEEK (V+23)0R 128 

:POEKE V+29,FEEK(V+Z9)OR. 128 <B85> 
212328 IF IN(24,1){>AP THEN 21248 x<@11> 


21231 FRINT" HOME, 12DDWN,15RIGHT,GREY 1} 
1/1///1B{DOWN,BSLEFT}-. 7. ..7, TDOWN,BLEFT>" 


Fr» ka 





<B64 > 
21232 PRINT" {UP,1&6RIGHT,BROWNIRDOODDDE." 206? 
21248 IF INt25,1)<>AF THEN 21258 8235 


21241 POKE V+21,PFEEK(V+21)0R 192: POKE 58174,4B 
:POKE 52175,49: POKE V+45,7:FP0OKE V+46,7 
:POKE V+12,138 

zZı1242 FOKE v+37, @B:POKE V+ZB8,12:FODKE W+13,98 
:FOFE V+15,98: FOEE V+2B, 192 
:POKE V+2T,FEEKWH2ZIOR 1972 Ba7: 

21243 IF Yz2=1 THEN POKE V+12,135:FOKE V+14,228 
:FOKE V+29,32: POKE 59173,31: FOHE V+44,7 


<B64> 





:GOTO 21247 <BSS} 
217244 FRINT" {HOME ,6&DOWN,14RIGEHT,SREY 1> 

uununana una. IDOWN,IZLEFTI on suaneunu en” 

:POEE V+14,186 {1435 
21245 FRI NT" CHARIGHT). .uuunn zun.. {DOWN,„IZLEFTF 

“une un.uun ZBal: 
21246 FOKE V+27,FEEK(V+29)OR 192 

ıFRINT"LILARIGHTY. ss ncusnn un nn ":50T0 1252 

ZEl18> 


21247 PRINT" {HOME ,&DOWN,14RIGEHT,GREY 1}... 
SASFACE 3... {DOWN, 12LEFT}. . . TBSPALE). .." 2185: 
21248 PRINT" 21ARIGHT?... . 6SPACE?. . . {DOWN,12LEFTI 
ua. T6OSFACEN. 0." 2871: 
21249 PRINT" {14RIEHTI. .. TSSPACE}..." ?> 
zı25@ IF IN(27,1?X>AP THEN 21268 a 
71251 FOKE V+21,FEEK(V+ZID)OR 128: P0EE 52175,51 









ıFOKE V+46, 12: FOKE V+14,208 BFE: 
z1252 POKE v+15,128: FOKE YW+zZ,FEEH(W+ZIIOR 128 

:FOKE V+29,FEEK{V+2PIOR 128 125: 

Z12&8 IF IN{29,1:X{>AF THEN 21278 DS: 


21261 POKE V+21,FEEK(V+2DIOR 192: PFOKE Sara, n 
: FOKE 52175,54 > 
21262 FOKE V+12,121:P0OKE V+13, 
:POKE V+15,125:PDEE V+28, Fr 
21264 POKE V+45,8:F0EE +45, 15: POFE W+37,11 
»POKE W+78,7 EIER 
21265 FOKE V+23 ,PEEK (V+23)0R 192 
:POKE Y+29,FEEK (V+ZP)DOR 64 
21278 IF IN(3B,1)<>AP THEN 21289 . 
21272 POKE V+21,PEEK(V+21:0R 24: PF0OKE 580171,582 
:FOEE 59172,50: POKE V+&,142:P0OHEE W+7,148 
A113: 
21273 FOKE V+8,172:FDEE V+7,149:FOEE V+42,B 
:POKE V+42,9:FOCKE V+29,PEEKIN+ZIAIOR 24 
zı288 IF IN(Z3,13X>AP THEN 21298 x 
21281 FRINT" BROWN, HOME,DOWN, 1ARISHTIZ2-....3,* 
{DOWN 7LEFTIZZFZFLSFN Z198> 
21279 IF IN(327,1)<>AP THEN 71380 AB7EN. 
21291 FOKE V+21,FEEK(V+ZU)OR 128: FOKE 50175,58 
:FOKE V+46, 12: POKE V+14,178 ISIN 
21292 FOKE v+15, 105: FOKE y423 ,PEEK(V+23) OR 128 
:FOKE V+29,FEEEK(V+ZP)OR 128 2148: 
21300 IF IN (38, D{>AF THEN 217180 <B85> 
21321 FPOKE V+21,FEEK(V+21IOR ZBB:POKE V+2728,84 
:POKE 58173,55:FOKE 52172,57 {Bi16: 
213802 FOKE 58174,56:F0OKE V+12,1&R: FOKE V+17,125 
:FOKE V+14,160:POKE V+15,125:PDEE V+46,172 
<122> 
21383 POKE V+7,125:POKE V+45,9:FDEE V+37,8 X084> 
21384 FOKE V+43,1Z:POKE V+23,208 


:FOKE v+14, 














:FOKE V+29 ,PEEK (V+29) OR 208 zB68> 
21305 FOKE V+8,1&0: IF IN(45, 
1)=-1 OR YZ=1 THEN POKE V+B,188 <121> 


21387 PRINT" {HOME , LBDOWN, 19RIGHT ,2SPACE ‚DOWN, 
ZLEFT ‚2SPACE „DOWN, 2LEFT ,2SPACE „DOWN,ZLEFT, 
ASPACE}" <2Q5> 

21318 IF IN{Z9,1)<>AP THEN 21328 <B97> 

21311 POKE V+21,PEEK(V+21)OR 128:POKE 52175,38 
:POKE V+46,9:POKE V+14,172 <119> 

21312 POKE V+15,98: POKE V+23,PEEK(V+23)OR 128 


<DB2: 
71714 FRTINT" {HNME_&DOIWN. 18RIGHT. BLACKFI. „DIDOWN. 


ALEFT}-. . „ TDOWN,ALEFTI-.. y" ta. 
315 PRINT" {IBRIGHTI-. . „ {DOWN,ALEFTI-.. 5" <ı128> 
PRINT" {HOME , 14 DOWN, 15RISHT-,, BROWN}+17//7 702" 





“B865 
IF IN{4B,13<>AF THEN 21228 iBBn 





FOKE V+21,PEEK (VHr21)0R 129: FOkKE 52175,52 
FOHE V+r2B, 128: FOKE YW+36, 9: FDKE. Y+37 11 ZBSS> 
E V+38,7:FOEE YWrl4,180: FCKE V+15,118 
FOKE V423,PEEK (W+ZZICOR 128 BZLE 
23 FORE V+29,FEERW+2MDOR 128 Z14P> 
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Listing »Grab des Pharao« (Fortsetzung) 


F THEN 21348 
FRINT" HOME, 12 
EHREUTEN 


"Poke V+28, EEK (V+2B)OR 
POKE V+37,0 
21342 POKE V+38,7:POKE V+29,PEEK{V+29)0OR 
:POKE V+l1Q,16B: POKE V+11,122:POKE 
<ar1> 
21258 IF IN{46,1)<>Aar THEN 
£iöl 
PRINT" {HOME , 12DOUHN, 19RIGHT , BROWN}R" 
IF INtAt,1)2>AP THEN 21508 
IF AF=S57 THEN 21508 
; FRINT” CHOME , 13DOWN, DARIGEHT ,BROWNFT" 
RETURN 
} POKE V+21,2: PRINT" {CLR,ZDOWN, 1ERISHT, 
SREEN}SIE TRAGEN BEI SICH" 
z@212 FOR I=1 TO 45 
32220 IF IN(I,1)=-1 THEN PRINT" {BLUE,DOUN, 
ABRIGHT,WHITEH"ITECO 
ZBE23 NEXT £ 
SER2& PRINT" {SDOWN, IORISGHT,GREEN,RVSONISPALDE 
DRUECKEN {RVOFF „WHITE}" £ 
ZBOIB GET Atı IF Asi>" "THEN I0078 
SaBAD IF At=" "THEN GOTD 168 
ZAQ0B FOKE V+21,8: PRINT CHRE& (14) 
: INPUT" EILENAME"SEF 
Z4@18 OPEN 2,1,2,E# 
828 FOR I=i TO 58 
SARZQ PRINT#2,PN(I,1)zFRINT#Z,FN(I,2 
sPRINT#2,PN{I,3}:PRINT#2,FN(I1,4) 
34035 PRINT#2,PN(I,S):PRINT#2,FN{I,S):NEXT = 
z4g48 FOR I=1 TO 46 
34258 PRINTEZ,IN(I,1):PRINT#2,IN(I,2) 
:PRINT#2, IN(I,S3:3NEXT 
34868 PRINT#2,AP:FRINT#2,X1:PRINT#2,X7 
:PRINT#2,X4: PRINT#2,X5:PRINT#2,X& 
z407@ FRINT#2,X9:PRINT#Z,Y1:PRINT#2,Y2 
PRINT#2,YS:PRINT#2,YA: PRINT#2,GE 294: 
34080 CLOSE 2:60T0 SR3a@ <218> 
Z5B0B FRINT" SCLR,SDOWN}": INPUT"EILENAME"SEF:KK=1 


ZDS4> 


21372: REM 5 


„" TOLR,SDONND 


<B55: 
£B72> 


Z1P45 


21908: 
<BB8" 


z5@85 OFEN 2,1,2,E8 
=S5g@1@ FOR I=1 TOD 58 
35029 INPUT#Z,PN{I,1),PN(1,23,PN{I,3),PN(I,4), 
PN(1,5) ,PN{I,&) NEXT <a91> 
35838 FOR I=1 TO 46 <a25 
ZS@A0 INPUT#2,IN(I,1D ,JIN(I,2) ,INCI„ZI ENEXT <B11> 
25050 INPUT#2,AP,X1,X2,X4,X5,X6,X9,Y1,Y2,Y3,Y4, 
GE - <206> 
35060 CLOSE 2:RETURN <B22> 
39702 DATA GEHE ,ZERSTOERE ‚DEFFNE,KLOFFE,FRAGE, 
HACKE ‚ TOETE ,KRIECHE „WERFE „SCHIEBE <127> 
39910 DATA DREHE,KLETTERE,NIMM,VERLIERE,ZIEHE, 
LIST,SAVE,STOP <181> 
39922 DATA SPITZHACKE ,BEDUINE,STRAUCH, 
ZUGEMAUERTER EINGANG , SCHLANGE ‚STATUE „HEBEL. 
<QS54> 
39925 DATA TUER NACH WESTEN,SEIL, 
TUER NACH NORDEN „DURCHBANG „ DURCHSANG <102> 
3995@ DATA TUER NACH NORDEN, TONKRUG MIT ESSEN, 
SKORPION,PFEIL,TUER NACH NORDEN <127> 
39935 DATA BESCHAEDIGTE DECKE, 
SPRUENGE IN DER DECKE,DIAMANT, 
TOTER GRAERAEUBER <B58> 
37948 DATA STATUE,TUER NACH NORDEN,„LOCH,„RELIEF, 
TUER NACH NORDEN ,HORUS <131> 
39945 DATA TUER NACH NORDEN,SCHAETZE,HOLZBALKEN, 
TUER NACH WESTEN, TUER <169> 
397952 DATA DEFFNUNG IN DER DECKE, 
TUER NACH NORDEN,TUER NACH NORDEN 
39955 DATA TUER NACH NORDEN,OSIRISSTATUE, 
SARKOPHAG „ ZUBEMAUERTER AUSGANG <203> 
39960 DATA HOLZSCHREIN,AMULETT,TUER NACH NORDEN, 
TUER NACH SUEDEN,SCHLUESSEL <133> 
39978 DATA TOTENMASKE,BASMASKE,SIFTIGE GASE, 
FALLTUER „SCHRITTE , SONNENAUFGANG <BiB> 
39975 DATA GEHEIMGANG AUGE „WAND, TREPPE <178> 
29985 DATA 168,8,162,0,142,32,228,142,23,208, 
232,234,224,16,208,244,208,192,255 <282> 
39998 DATA 208,237,169,0,141,32,228,141,33,208, 


2357 
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2,1,8,0,3,1,3,0,0,8, 
<B28> 


ADaBd DATA 3,4,2 
1,2,5,0,9,2,8 
5 07,0 


y 
E} 
42881 DATA 5, 
2,12,8,2,8,2 : 1995 
12 ‚„11,2,;,0,12,8,0,8, 
20,0 <252> 
‚2,0,8,2,8,19,17, 
, <197> 
3,8,21,8,0,22,24,2, 
26,0,8,23,8, 26,0,24,2,0,8 “023% 
AUB0S5 DATA 0,25, 2 ° «204 > 
ABEBL DATA B,22,0,2 2,31,8,27,29,2,0,8,0,28, 
0,0,2,2,2,0,0,2,0,0,28,0,38,8,0 <190> 
400887 DATA 2,2,0,31,0 
35,0,8,55,36,34,0, 


40002 DATA 8, 
23,2,0, 
42008: Data’ 2, 2, 

2,8,0,8,2,18, 
40004 DATA 2,8, 


‚8,35,37,33,B <284> 
4BRADQB DATA 98,0,36,41,0,08,2,8,33,2,8,2,28,2,0,42, 
46,2,28,8,27,8,8,8,2,8,37,42,8,20,B <B297 
40209 DATA 0,41,8,2,0,0,2,2,44,48,0,0,8,43,50, 
49,0,8,8,49,8,0,8,8,8,0,0,51,39 2169 
42018 DATA 2,0,8,2,02,408,2,2,2,479,2,45,2,2,48,45, 
2,44,0,0,44,0,2,38,08,2,0,8,0,46,8 <097> 
4BB11 DATA 98,0,0,2,47,2,0,0,0,0,52,0,2,2,0,2,51, 
2,8,0,35, 2, 2, 2, 56 ‚D, 57, 5,8 <243> 
aD21> DATA 56,28,9,2,82,0,0, ‚19,8 <204> 
40025 DATA 4,1, 1, 5,8,1,7,B x196> 
49827 DATA 7,8 ‘2,35, 2,1,18 <293> 
42022 DATA 18,0,0,10,2,1,1 2B36: 
42232 DATA 13,2,1,2,2,8 21745 
42831 DATA 14,9,1,15,2,1,16,1,1,16,20,@ <127> 
42222 DATA 21,0,2 <154> 
AB93Z DATA 21,0,1,23,8,1 2220> 
40834 DATA 24,8,1,25,1,1 SDET> 
488935 DATA 27,1,1,21,8,1,31,8,1 £DI5r 
42036 DATA 37,8,1 2186: 
42077 DATA 40,8,1,42,0,1,42, 2,1 2855: 
408938 DATA 38,2,1,47,2,8,48 S1A4> 
49239 DATA 1,1,58,2,1,50, 2 @ 1675 
42aBan DATA BB&> 
42241 DATA “269 > 
A0BA4S DATA 54, ‚2. 1, 's7, ‘2. 1, <B19%r 
42244 DATA 197,8,1 ‚2s,a, 1, 
«2ER 


4S52e0 FOKE 5327B,PEEK(S 


3 
v4 


327) OR 16: POKE 53285,7 
:FOEE 53283,7 al? 

45805 FOEE S7280,8:FOKE 53281,7 x170> 

45218 FRINT"{CLR,GSREY 1,7DOWN,3RISHT ,45FACE}P 
HAR AD S{3SSFACEIG R AV E" <132> 

45222 FRINT"{DOWN,11SFACEIA DVENTURE 
X13SPACE, BLACK" 

4S2za PRINT" A19SFACE). » 

45831 FRINT" {18SPACE}. 77. 

4S@32 FRINT" i1I7SPACEI.S/SISEF. 

45833 FRINT" Z18SFACEYF. SS /IJT. 

FRINT"AISSFACEI/P/FTFTT. 

; FRINT" S13SPACEF. FFFFFFFFFT, 
FRINT"T PRDEISSFFFFFFTEFS,: 
FRINT"ILZSPFACEI.FFFFFFLFFE 
FRINT"S11SFALEI.FZFFFITFFF 
FRINT"TLOSFACEI. fFFFZ 
FRINT" {FSFACEN. 
PRINT" IBSFACE} 


z183> 
<172> 
<B1l> 
“1206: 
<zal> 


"<192 
PRINT" {2DDWN,BREY 1,19SPACEIEYLSSPACEN" 


4 
218: 


PRINT" {1ZSPACEIWOLFGANG RAUSCHTIZSPFACER" 
“1725 
SOSLE 12082: SDSUR 32 
FRINT"ICLRF" „CHRELIA)SFOKE SE77R, 
FEEK(SETTODIAND 23 
45112 FRINT" {WHITE ,SDOWN, 4RIGEHTIN 
: NEUES SPIEL BEGINNEN" 
451123 PRINT" IDOUN,4RIGCHTFEA ı 
TZEN" 
45114 GET XF:1IF XE="N"THEN Daei 
45115 IF X#="A"THEN GOSUR 73208 


Lan 


RATES SFIEL For 


SA AND K#$L>"N"THEN 
‚ı28 FRINT"Z UR RIGHT, VELLOWIZIEN 
IST ES EINE BYRAMIDE" 
45125 FRINT" {RIGHT}IZU ERFORSCHE 
LLE" " 


45127 FRINT"IRIGHTIIDTENM 





FINDEN.” 
45172 PRINT" IDOWN, RIGHT ,DRANGEFEOLGENDE NER 
VERSTEHT DER EDMFUTER: " : 
45132 FRINT"{RIENT,DOWNIGEHE 
BEFFNE ,TOETE" j 
45134 PRINT" {RIGHT YZERSTOERE,KLOFFE, FRAGE WE 
DREHE" 
45136 PRINT" XRIGHTIHACKE ,KRIECHE  WERFE „SCHIE 
ELETTERE" 
45137 PRINT" {RIGHTILIST,SAVE,STOF 
45148 FRINT"{BLACH, DOWN, RIGHT} 
BACH JEDEM EINSESEBENEN KORT MUSS" 
45142 PRINT"{RIGHT? RETURN" GEDRUECH 
Z1915 
45134 FRINT" {RIGHTFALLE SDMEN KOENNEN AUF 5, 
ALLE VERBEN” “ 
45146 FRINT"{RIGHTIAUF 4 BUCHSTABEN A 
WERDEN. " 4 Ri 
35148. PRINT" {RIGHTYBEI RBICHTUNSSANGABEN BENUEGT 
EIN " 120" 
45158 PRINT" {RIGHT}BUCHSTABE. ERBE 
45152 PRINT" {RICHT}Z.2.:GEHF "RETURN ISSPACEIN 
"RETURN" 2255} 
45154 FRINT”{RIGSHTYLIST ZEIGT ALLE SEGSENSTAENDE, 
DIE" 
45155 FRINT" {RIGHTIMAN BEI SICH TRAEST (MAXIMAL 
Br Fu xB9B: 


‚NIMM,VERLIERE, 


45157. PRINT" {RIGHTISAVE SPEICHERT DEN SPIELSTAN 


D AUF" 
45158 PRINT" {RIGHTIYKASSETTE AR." 
45160 IF DA=1 THEN GOSUB 60 


2153: 
45172 FRINT" {DOWN, 4RISHT ,RVSDN} 'SERER’ DRUECKEN 
A795 


{RVOFF}" 
47BDB GET XS: IF X#i>" "THEN 47008 
47018 IF X+=" "THEN. PRINT CHRE (142) 
ıB7Z> 
47028 IF KK=1 THEN 155 
47025 G0T0 158 iz 
49RB0 GOSUB 5628: PRINT" {CLR,2DOWN,SRIGHT}YSIE 
SIND AUSSERHALR":GOSUB 5822 X 


SBAr> 


„"ÄCLRI" 


49922 IF IN(45,1)<>-1 THEN 49858 ; 75: 


49025 PRINT CHR$(14) „" {CLR,GREEN, ZDOWN , SPACE) 
SIE HABEN ES GESCHAFFT DIE GOLDENE" 8725 
49@12 FRINT" DOWN, ZSPACEIIDTENMASKE DES PHARADS 
ZU FINDEN“ 
49B22 FRINT" {DOWN,ZSPACE>UND HDECHSTE EHRUNGEN 


DE TER 


SIND IHNEN {3SPFACEN" Ar2E: 


49838 PRINT" DOWN, SSPACEIGEWISS," 2947" 
478428 PRINT" {ZDOWN,RED,Z5PFACEFDOCH DER ELUCH 
DES PHARADS WIRD" xBR&a> 
49245 PRINT" {DOWN,ZSPACEISIE FUER IMMER VERFOLG 
EN. {KHITE}":GOTO SBIUR 21215 
A9BSB FRINT" {CLR,GREEN,SDOWN, 3SPACE}SIE HABEN 
ES IWAR BESCHAFFT, DIE" <BAEN 
47855  FRINT" {DOWN ,SSFACEIPBYRAMIDE LEBEND ZU 
VERLASSEN, DOCH" 1255 
43842 FRINT" DOWN, ZSFACEISIE HÄBEN DIE GOLDENE 
IDTENMASKE" 2219: 
498455 FRINT" {DDWN,3SFACE}NICHT BEFUNDEN." 
:G0TO SDIRB 
SZ1la@ REM 
SE1RS FOKE V+14,170:POKE V+15,130 
saile FOR F2=135 TO 155 STEF T:FOKE 50175,46 
:FOR T=1 TO 19B:NEXT:FOKE V+15,F2 aa: 
sal22 FOKE 52175,47:FOR T=1 TO 190:NEXT:NEXT 
Bra: 
=@121 FOR T=1 TOD 20:5YS BöäA:NEXT:GOTO 50218 
XBa2> 
SBi7a FRINT CHRF(14)" {CLR,RED,2DOWN,ZSPACE}YSIE 
HABEN SICH HDFFNUNSSLOS VERIRRTÄWHITE}" 
:60T0 SB200 x2E 
SA2BB FRINT CHRF(14)" {ELR,RED,2DOWN,SSFACEISIE 
HABEN DEN HALT VERLDREN UND SIND{4SPACE} 
HINUNTERGEFALLEN {WHITE}" j 
SB2@1 BOTO SRIORB 39 
sare2 FRINT CHRF(14)" SCLR,RED,ZDOWN, SSPACEYSIE 
SIND IN EINE FALLGRUBE GESTUERZT WHITE" 
:G0OSUS S6DB: GOTD SRAIBZ “1315 
Sa2B% GSOSUR SaRd: PRINT CHRF (14) "{ELR,RED,ZDOWN, 
ZSFACEIDIE "ITF(54)" IST EINGESTUERZT WHITE" 
:G0T0 S@F82 21345 
zsarg4 GOSUR S6BR:FRINT CHR$(14)"{RED,ECLR,SZDOWN, 
ZSFACE>DIE DECKE IST HERUNTERGEBROCHEN {WHITE} 


<OBl> 
xBB&> 


xDSSH 


64 Zar 


E2BO: 





":5070 52308 2117 
S929& PRINT CHRE(14)"ZCLR, RED ‚ZDOWN,SSFACEIEIN 
HERASFALLENDER STEIN HAT SIE ER{SSPACE} 
SCHLAGEN {WHITE}":GOTD SAID 
S22807 PRINT CHRF (14) "{CLR,RED,ZDOWN, S5SFACE} 
"1T£(47)3" HABEN SIE GETOETET WHITE” 
:50T0 503028 
Sg208 FOR T=1 TD 28:5Y5 866: NEXT:GOSUB S6RR 
: PRINT" {CLR,RED,2DOWN,SSFACE}SIE WURDEN VON 
HINTEN SEFACKT UND " Z137> 
59209 PRINT" {SSPACEFERWUERGT {WHITE}":GOTO SBIBR 
<247> 
Sa21D GOSUB S6RB: PRINT CHRE(14)"{CLR,RED,ZDOWN, 
ZSPACEIDIE "ITF(SI" HAT SIE GEBISSEN{WHITE}" 
:50T0 59I08 2206: 
saril GOSUB 5640: PRINT CHR#(14)" {CLR,RED,2ZDOWN, 
ZSPACE3EINE "IT$(48)" HAT SICH UNTER IHNEN" 
<1397> j 
PRINT" {SSPACE}GEDEFFNET {WHITE3":BOTO 50508 
<B?4> 
59213 SOSUB 5489: PRINT CHRE&(14)" {CLR,RED,2DOWN, 
ZSPACE>SIE HABEN EINEN MECHANISMUS " <145> 
58214 PRINT" {3SPACE}AUSGELDEST „WODURCH EIN - 
"ITE(1IEI" AUS " <141> 
9215 FRINT" {3SPACE}DER WAND GESCHOSSEN WURDE 
{WHITE}":GOTD 59308 <BB6> 
S@ZOR FRINT CHRF# 14)" {5SDOWN,SRIGHT}INOCH EIN 
NERSUCH? (J/N" <897> 
S@z1Q GET At:IF AF{H"T"AND A$<>"N"THEN 52512 
x022=> 
59328 IF A$="J"THEN CLR:PRINT CHRE (142) " {CLR3" 
RUN <228> 
SO3IB SYS 64758 <aQe> 
SA7BB FOR X=1 TO 2B:POEE V+B,1&B+X 
:FOR T=1 TO ZBR:NEXT:NEXT:IN{45,5)=1 
:G0SUB 5920:60T0 164 
TI$="BRREaRND" 
FRINT ASF"HOMMANDO 7" 
FOKE 631,2: FOKE 198,8 
U=PEEK {&T1)} 
IF Tis="BRBRAR2"THEN 52778 
IF U=?1 THEN FOKE 631,0U:6070 258 
IF U>@ AND U<>71 THEN 59778 
; 6070 59731 
FOR X=1 TO 1B:FOKE V+13,125-X 
:FOR T=1 TO ZBB-NEXT:NEXT:FOR T=1 TO 20 
ı5Y5 B&SU: NEXT 
52788 GOSUB SABZ:PRINT CHRE(14) "SCLR>" 
:GCTO 59328 
SAR2B TIF="WBRBUU":FOKE 671,0 
SQ@B2S PRINT A4&"KOMMANDO 7" 
SRBA& POKE 651,8: POKE 198,8 
s2sg7 U=PEEK (631) 
SBBBEB IF U=71 OR U=84 THEN FOKE 631,U:6070 : 2 
<B14> 
S@8E297 IF U>@ AND LX>71 AND Ui:B4 THEN SR822 
<Q74: 
S@B18 IF TI#="OOBAN2"THEN SE820 
52815 50T0 58887 
S@B28 FOR X=1 TO 18: POEE V+15,142+X 
:FOKE V+14,172-X/2:FOR T=1 TOD 1BQ:NEXT:NEXT 
2128> 
58825 FOR T=1 TO 19:5YS 866: NEXT:GDSUB SAD 
2214> 
SB8=ZB FRINT CHRE (14) " {CLR,RED,2DOWN, 3SPADEIDER 
"IT£(15)" HAT SIE GESTOCHEN {WHITE>3" 
:50T0 590328 
S2BB0 FRINT AZ$" {GREEN}SIE HOEREN "ITF(49)" 
HINTER SICH{WHITE}Y":C=SCHl 
s2a24 FOR Ci=1 TO 4 
S2Q@S5 FOR LA=5 TO 2 STEF-.4 
S2@1R FOKE 5I+74,LA:FOKE SI+S5,8*16+18 
:POKE SI+6,15*16&:POKE SI+1,15:POKE SI+B,® 
<B46> 
S2QB2B FOKE SI+r4,129:NEXT 
52825 FOKE SI+4,8:FOKE SI+5,D 
S29z2 FOR T=1 TO 8BRD:NEXT:NEXT:RETURN <B6l: 


<181> 


BAT} 


<@74> 
<210> 


<B52> 
<BB&> 


“1SFE 
SilıE 


<148> 


<B25> 


Listing »Grab des Pharao« (Schluß) 
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Checksummer 
— keine 
Fehler mehr 
beim Abtippen 
von Listings 


Das Programm Checksummer wird Ih- 
nen das Abtippen von Listings erheb- 
lich erleichtern. Es wird deshalb in die- 
ser und in der nächsten Ausgabe noch 
einmal mit ausführlicher Beschrei- 
bung abgedruckt. Lesen Sie bitte die 
Anleitung genau durch, bevor Sie ein 
Listing mit dem Checksummer eintip- 
pen. 


Der Checksummer 64 ist ein kleines Maschinenprogramm, 
das, wenn es aktiviert ist, Sie sofort davon unterrichtet, ob Sie 
die jeweilige Programmzeile korrekt eingegeben haben. 

1. Tippen Sie den Basic-Lader sorgfältig ein. Es gibt zwei 
Versionen: eine für den Commodore 64 und eine für den VC 
20. 

2. Bevor Sie »RUN« eingeben, speichern Sie den Basic- 
Lader bitte erst ab, denn wenn Sie zum Beispiel einen Fehler 
bei den eingetippten POKE-Anweisungen gemacht haben, ist 
es möglich, daß der Rechner aussteigt. Heben Sie sich den ab- 
gespeicherten Checksummer 64 auf — Sie werden ihn immer 
wieder brauchen, wenn Sie ein Basic-Programm aus dem 
64er eintippen wollen. 

3. Der Checksummer 64 überprüft sich selbst. Wenn Sie 
einen Fehler in den DATAs gemacht haben, listen Sie die fehler- 
hafte Zeile einfach, korrigieren sie und starten dann das Pro- 
gramm neu. 

4. Nach Initialisierung des Maschinenprogramms ist der 
Checksummer 64 aktiviert. Er steht innerhalb des Betriebs- 
_ systems und verbraucht kein einziges Byte Speicherplatz. Es 
sei hier für Interessierte gesagt, daß selbst alle Sprungvekto- 
ren unverändert bleiben, das Programm also mit einer Vielzahl 
von anderen Programmier-Spracherweiterungen wie etwa Ex- 
basic Level Il problemlos zusammenarbeitet. Achten Sie aber 
darauf, daß bestimmte Spracherweiterungen das hinter dem 
ROM liegende RAM für Hires-Grafiken benutzen. Wird zum 
Beispiel eine Hires-Grafik von Simons Basic aus angespro- 
chen, so wird der Checksummer 64 zerstört. 
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5. Wenn Sie den Checksummer 64 zwischenzeitlich nicht 
benutzen, können Sie ihn jederzeit mit »POKE 1, 55« desakti- 
vieren. Auch durch Drücken der Run-Stop- und der Restore- 
Taste wird der Checksummer 64 desaktiviert. Wollen Sie, daß 
der Checksummer 64 auch noch nach Drücken dieser Tasten- 
kombination erhalten bleibt, so geben Sie bei aktiviertem 
Checksummer 64 »POKE 64982, 53«ein. Der Checksummer 
64 ist dann nur durch »POKE 1, 55« abschaltbar. 

Wollen Sie den Checksummer 64 wieder einschalten, so 
geben Sie bitte »POKE 1, 53« ein. 

Das Maschinenprogramm bleibt solange erhalten, bis der 
Computer ausgeschaltet, oder wenn von anderen Program- 
men auf das hinter dem ROM liegende RAM zugegriffen wird. 

6. Eine Checksumme wird nur dann ausgegeben, wenn der 
Commodore 64 (VC 20) eindeutig erkennt, daß Sie eine Zeile 
bestehend aus der Zeilennummer und zumindestens einem 
alphanumerischen Zeichen eingegeben haben. Ansonsten 
reagiert der Commodore 64 normal. 


Hinweis: Wenn Sie bei aktiviertem Checksummer 64 ein Pro- 
gramm mit »LOAD« in den Speicher holen, wird auch eine 
Checksumme ausgegeben. Dies liegt jedoch an rechnerinter- 
nen Routinen und hat keine weitere Bedeutung, stellt insbe- 
sondere keine Gefahr für das geladene Programm dar, da alle 
Pointer richtig gesetzt werden. , 

Nach Eingabe von RUN wird zunächst einmal das ROM in 
das RAM des Commodore 64 verschoben, wonach der Basic- 
Interpreter modifiziert wird. Dadurch hat man den Vorteil, trotz 
einer zusätzlichen Routine das gesamte RAM des Rechners 
zur Verfügung zu haben. Nach ordnungsgemässem Ablauf 
des Programms können Sie sofort mit Eingaben beginnen. 
Für Maschinensprache-Spezialisten weise ich darauf hin, daß 
ich ausnutze, daß die Einschaltmeldungen des Rechners nur 
nach einem Reset generiert wird. Der Textbereich, in dem die 
Meldung steht, wird von dem erzeugten Maschinenprogramm 
überschrieben. 

Alle veröffentlichten Listings sind mit einer Checksumme 
versehen, die am Ende jeder Programmzeile steht. Diese 
Checksumme steht zwischen < und >. Sie wird beim Eintip- 
pen des Programms nicht mit eingegeben. Die Zahl zwischen 
den beiden Zeichen stellt lediglich eine Information für Sie dar. 
Wenn Sie diese Checksumme dennoch mit eintippen, werden 
Sie schnell bemerken, daß Sie etwas falsch gemacht haben. 
Bei aktiviertem Checksummer 64 wird nämlich nach Eingabe 
einer Basic-Zeile, die mit Return beendet wird, in die linke obe- 
re Bildschirmecke die Checksumme.eingeblendet, die mit der 
Summe aus dem veröffentlichten Listing übereinstimmen muß. 
Ist das.nicht der Fall, haben Sie die Zeile anders eingegeben, 
als sie im Listing dargestellt ist. Vergessen Sie also bitte nicht, 
daß die am Ende einer Zeile in < und > stehende Prüfsumme 
nicht mit eingegeben werden darf. 

Der Checksummer 64 ist so ausgelegt, daß er abhängig von 
der Zeilennummer und dem Text der Zeile eine Checksumme 
ausgibt. Beim Bilden dieser Checksumme werden Spaces 
(Leertaste) überlesen, was für Sie bedeutet, daß es egal ist, 
wieviel Leerzeichen Sie zwischen den Worten lassen, da Sie 
für den Programmablauf ohnehin keine Bedeutung haben. 
Aber manchmal ist das richtige Setzen von Leerzeichen doch 
wichtig, besonders innerhalb von Strings (Zeichenketten), die 
gedruckt werden sollen. Seien Sie deshalb besonders genau 
bei Leerzeichen, dieinnerhalb von Anführungszeichen stehen, 
denn meistens ermöglichen nur die richtig gesetzten Spaces 
eine sinnvolle Textausgabe auf dem Bildschirm. 


sap 65 


Beachten Sie auch, daß es durchaus erlaubt ist, Abkürzun- 
gen für die Commodore-Befehlswörter zu verwenden. So führt 
die Eingabe von » ? «als Kurzschreibweise für »PRINT« nicht et- 
wa zu einem Checksummen-Fehler, sondern wird korrekt ver- 
arbeitet und dementsprechend die Checksumme generiert. 
Nachdem Sie ein Listing eingegeben haben, sollten Sie es aus 
Sicherheitsgründen vor dem Starten abspeichern. Sie brau- 
chen hierfür jedoch nicht den Checksummer 64 zu desak- 
tivieren. 


Hinweise zum Lesen von Listings 


Die Listings haben sich ein wenig im Ausdruckformat verän- 
dert, um Ihnen das Eingeben von Programmen wesentlich zu 
erleichtern. 

— Cursorsteuerzeichen und andere Steuerzeichen, die 
schwer zu lesen sind, werden von nun an in Klartext in speziel- 
len Klammern gesetzt. 

Tritt mehrmals hintereinander dasselbe Steuerzeichen auf, 
so wird diese Steuerzeichen-Sequenz zusammengefaßt, in- 
dem zuerst das Steuerzeichen und dann die Anzahl der Wie- 
derholungen dieses Steuerzeichens in Klartext ausgegeben 
wird. 

— älle Commodore-Grafikzeichen, die über Shift zu errei- 
chen sind, werden nicht mehr als Grafikzeichen, sondern als 
Klartextzeichen dargestellt. Dabei wird aus dem Zeichen, das 
Sie auf dem Bildschirm sehen, wenn Sie die Tastenkombina- 
tion Shift und »A« ansprechen, wieder ein »A«. Um dieses »A« 
vom normalen »A« unterscheiden zu können, ist es etwas klei- 
ner als das gewöhnliche »A« und ist außerdem mit einem Unter- 
streichungszeichen versehen. Diese Vereinbarung gilt auch 
für sämtliche andere Commodore-Grafikzeichen, die über 
Shift zu erreichen sind. 

— entsprechendes gilt für sämtliche Commodore- 
Grafikzeichen, die über die Commodore-Taste zu erreichen 
sind. Hier wird jedoch das jeweilige Klartextzeichen nicht un- 
terstrichen, sondern überstrichen. 


Erläuterungen zu den Cursorsteuerzeichen 


Cursorsteuerzeichen werden, wie schon oben erwähnt, um- 
definiert. Sie sehen hier eine Liste der möglichen Ausdrücke, 
die für ein Cursorsteuerzeichen im Listing auftauchen können. 
Gleichzeitig ersehen Sie aus der Tabelle, welche Taste bezie- 
hungsweise Tastenkombination zu drücken ist, damit dieses 
Steuerzeichen richtig in Ihr Programm übernommen wird. Be- 
achten Sie, daß Sie die Steuercodes nur dann alsreverses Zei- 
chen sehen können, wenn der Rechner im »Quote-Modus« ar- 
beitet, das heißt, daß er sich im Gänsefüßchenmodus befin- 
det. 


Checksummer VC 20 


Der Checksummer VC 20 ist im Prinzip genauso aufge- 
baut wie der Checksummer 64. Da beim VC 20 jedoch nicht 
die. Möglichkeit besteht, das ROM softwaremäßig zu modifi- 
zieren, mußte ein anderer Weg als beim Commodore 64 ge- 
wählt werden, um die Checksumme zu generieren. 

In ihrer Funktionsweise unterscheiden sich der Checksum- 
mer VC 20 und der Checksummer 64 nicht. Es gelten folgen- 
de Sonderregelungen bei der Benutzung des Checksummer 
VG 20: 

— da der Basic-Bereich nicht belegt werden soll, ist das Pro- 
gramm im Kassettenpuffer abgelegt. 


AR kan 


























Wenn Sie lesen ! drücken Sie 

CTRL steht für Control-Taste, so bedeutet[CTRL-A], daß Sie die 
Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 
[down] ! Taste neben rechtem Shift, Cursor unten 
[up] ! Shift-Taste & Taste neben rechtem Shift, Cursor hoch 
[ciear] ! Shift-Taste & 2. Taste ganz rechts oben 
[inst] ! Shift-Taste & Taste ganz rechts oben 

[home] ! 2. Taste von ganz rechts oben 

[def] ! Taste ganz rechts oben 

[right] ! Taste ganz rechts unten 

lleft] ! Shift-Taste & Taste unten rechts 

[space] ! Leertaste 

[ft] ! grauer Tastenblock rechts 

[f3] ! grauer Tastenblock rechts 

[f5] ! grauer Tastenblock rechts 

[ff7] ! grauer Tastenblock rechts 

f2] ! grauer Tastenblock rechts & Shift 

[f4] ! grauer Tastenblock rechts & Shift 

[f6] ! grauer Tastenblock rechts’& Shift 

[f8] ! grauer Tastenblock rechts & Shift 

[return] ! Shift-Taste & Return 

[black] ! Control-Taste & 1 

[white] ! Control-Taste & 2 

[red] ! Control-Taste & 3 
.[eyan] ! Control-Taste &4 

[purple] ! Control-Taste & 5 

[green] ! Control-Taste & 6 

[blue] ! Control-Taste & 7 

[yellow] ! Control-Taste &8 

[rvson] ! Control-Taste &9 

[rvoff) ! Control-Taste &0 

[orange} ! Commodore-Taste & 1 

[brown] ! Commodore-Taste & 2 

[lig.red] ! Commodore-Taste & 3 

[grey 1] ! Commodore-Taste & 4 

[grey 2] I Commodore-Taste &5 

[lig.green] ! Commodore-Taste & 6 

[lig.biue] ! Commodore-Taste & 7 

[grey 3] ! Commodore-Taste &8 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuerzei- 





chen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise er- 
kennen. Der zu dem jeweiligen Steuerzeichen gehörende Klartextistso 
verfaßt, daß Sie leicht die Taste beziehungsweise die Tastenkombination 
finden, die Sie drücken müssen. 





— angeschaltet wird der Checksummer VC 20 mit »SYS 
955« 

— Abschaltung des Checksummer VC 20 wird mit »SYS 
5845% vollzogen 


ACHTUNG: Nehmen Sie keine Kassetten-Operationen vor, 
wenn der Checksummer VC 20 eingeschaltet ist. Da das Be- 
triebssystem den Kassettenpuffer mit Daten belegt, kann der 
Checksummer VC 20 überschrieben werden, was zur Folge 
hat, daß sich der Rechner bei aktiviertem Checksummer VG 
20 »aufhängt«. Wollen Sie deshalb ein Programm auf (von) 
Kassette abspeichern (laden), so müssen Sie erst den Check- 
summer VC 20 abschalten (SYS 58459). - 

Daraufhin kann der Kassettenpuffer mit Daten überschrie- 
ben werden, ohne daß der Rechner »aussteigte. 

Als Sicherung wird bei der Initialisierung geprüft, ob das zu- 
letzt angesprochene Peripherie-Gerät der Kassettenrecorder 
war. Ist das der Fall, so werden die Betriebssystemroutinen 
LOAD und SAVE für die Benutzung gesperrt. Der Rechner mel- 
det bei Aufruf einer dieser beiden Routinen READY, ohne wei- 
tere Aktionen durchzuführen. Diese Sicherung kann man nach 
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der Tipparbeit aufheben, wenn. man den Checksummer VC 20 
mit SYS 58459 abschaltet. Dadurch wird der Kassettenpuffer 
für andere Daten freigemacht. Weiterhin wird dann durch 
gleichzeitiges Drücken der Tasten »Run-Stop & Restore« er- 
reicht, daß die Betriebssystemroutinen LOAD und SAVE wie- 
der eingerichtet werden. 

— Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu achten, daß bei LOAD beziehungsweise SAVE der 
Checksummer VC 20 überschrieben wird, da der Kassetten- 
puffer für die Diskettenstation normalerweise nicht genutzt 
wird. Deshalb können Sie die beiden Routinen weiterhin nor- 
mal nutzen, sofern der Rechner bei der Initialisierung des 


<x175> 
<247> 
<162> 
<g1i> 
<B61> 
<Ba31> 
<u56> 
<a51> 
<255> 


EEE III IE ER RERRER 
CHECKSUMMER 64 
64 ER 
COMMODORE &4 


ERRIIIITIIIIIIHHHIIHHE 
100 PRINT" ICLEAR,SPACE13,RVSON JCHECKSUMMER 
[SPACE 164 [LRVOFF }" 
118 PRINT 
128 PRINT" EDOWN2 „SFACE4 JICHLSPACE JARBEITE! 
ESPACE IBITTELSPACE JETWASLSPACE IGEDULD." <B71> 
132 FOR I=49968 TO 49151:POKE I,PEEK(I) NEXT 
<a07> 
140 FOR 1=57344 TD 65535:PDOKE I,PEEK(I):=NEXT 
x025> 
150 POKE 1,53:POKE 42289,96:FOKE 42298,228 <B@l> 
i&ß FOR 1=58464 TO 58554:5605SUB 228:POKE 1,A 
<184> 


xB25> 
<x007> 


172 PS=PS+A+1:NEXT I <109> 
188 IF PS<>11187 THEN PRINT"PRUEFSUMMENFEHLER 
LSPACE3!":END <1BB> 
198 PRINT" LDOWN4 ‚SPACE? ICHECKSUMMERLSPACE] 
AKTIVIERT." 
200 PRINT" LDOWN2 JAUSSCHALTENLSPACEI 
: [SPACE IPOKE1,55" 
2198 PRINT" LDOWNJANSCHALTENLSPACE2]- 
ı LSPACE IPOKE1 ,53": NEW <171> 
228 READ As: IF LEN(A$)<>2 THEN PRINT"TIPPFEHLER 
ESPACE JINESPACE IZEILE"PEEK (63) +PEEK (64) #256 
zEND <201> 
230 A1=ASC tA$) :A2=ASC (RIGHTS (A$,1)) <216> 
24@ IF Ai<4B OR A1>57 THEN IF AlX65 OR A1>7@8 TH 
EN 318 <138> 
250 IF AZ<48 OR A2>57 THEN IF A2<65 OR A2>70 TH 
EN 318 <144> 
260 IF A1l>64 THEN Al=A1-55:60T0 288 <204> 
270 IF AIX58 THEN Al=A1-48 <128> 
280 IF A2>64 THEN A2=A2-55:60T0 300 <220> 
290 IF A2Z<5B THEN A2=A2-48 <151> 
3Q2 A=Al*1&6+A2: RETURN <138> 
318 PRINT "UNGUELTIGERLSPACE JHEXCODELSPACEIIN 
ESPACEIZEILE"PEEK (63) +PEEK (64) #256: END <B21> 
320 DATA AB,02,A9,00,85,82,B1,5F <B9B> 
3358 DATA FB,BF,C9,20,D8,83,C8,D9 <146> 
340 DATA F5,18,65,802,85,02,4C,6E <126> 
350 DATA E4,C0,04,38,F1,C6,D6,A5 <169> 
360 DATA D6,48,42,83,49,29,9D,81 <150> 
37@ DATA 84,BD,B7,E4,20,D2,FF,CA <238> 
380 DATA 19,F2,A6,902,A9,00,28,CD <169> 
390 DATA BD,A9,3E,20,D2,FF,68,85 <245> 
408 DATA D6,20,6C,E5,A9,8D,28,D2 <229> 
A418 DATA FF,4C,88,A4,5C0,48,28,09 <244> 
A420 DATA FF,AR,68,98,21,94,60,09 <234> 
438 DATA 3C,12,13 <199> 


<247> 


<aS5a> 


Der Checksummer für den Commodore 64 
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Checksummer VO 20 feststellt, daß das zuletzt angesproche- 
ne Peripherie-Gerät nicht der Kassettenrecorder war. 

— bedingt durch den anderen Aufbau des Checksummer VC 
20 wird anders als beim Checksummer 64 nach der LOAD- 
Routine keine Checksumme ausgegeben. 

— wird eine Zeile gelöscht, also eine Zahl zwischen O und 
63999 eingegeben, und danach Return gedrückt, so wird 
eine Checksumme ausgegeben, die aber keine Bedeutung 
hat. 

Viel Spaß beim Eintippen von Programmen mit dem neuen 
Checksummer! 

(F. Lonczewski / gk) 


x057> 
<247> 
<054> 
<044> 


REMFRRRRUNERERRRRRR 
REM* * 
REM#* CHECKSUMMER ‚* 
REM# VERSION VC?B + 
REM* * <B21> 
REMARRRRERRERERRERRR .. x1907> 
PRINT" CLEAR „SPACE2 ,RVSON JCHECKSUMMERLSPACE2] 
VE-2BERVOFF 3" <185> 
FRINT 2233> 
PRINT" [DOWN JEINENESPACE IMOMENT „ESPACE] 
BITTE..." 
188 FOR I1=827 TO 993:605UB 180:POKE I1,A 
118 PS=PS+A+i:NEXT I 
128 IF PS<>290612 THEN PRINT"LDOWNI 
PRUEFSUMMENFEHLERESPACE 1!"sEND <130> 
132 SYS 955: PRINT "CHECKSUMMER ESPACE JAKTIVIERT. " 
x242> 
148 PRINT"ANISPACE 1:5Y5955" <212> 
1508 PRINT" EDDOWNJAUS: SYS58459 , [SPACE IBEILSPACE]I 
CAS-[SPACE4 ISETTELSPACE IZUSAETZLICHLSPACESI 
RUN/STOP [SPACE 1% [SPACE JRESTORE" <B48: 
168 PRINT" DOWN IBEILSPACE IAKTIVIERTEMLSPACEI 
CHECK-SUMMER CSPACE IKEIN" 5; <105> 
17@ PRINT” LSPACE ICASSETTEN-BETRIEBLSPACEI(LDAD, 
ESPACE ISAVE) ESPACEZ JERLAUBT ! "NEW <B51> 
188 READ A$: IF LEN(A$S)<>Z THEN PRINT"TIPPFEHLER 
ISPACE I1INLSPACEIZEILE"PEEK (683) +PEEK (64) #256 
ıEND <161> 
198 A1=ASC (AS) :A2=ASC (RIGHTFAF,1)) <176> 
288 IF Al<48 OR A1>57 THEN IF A1i<X65 OR A1>78 TH 
EN 2780 x895> 
212 IF A2<48 OR AZ>57 THEN IF AZ<55 OR A2>7B TH 
EN 270 <19897> 
228 IF Ail>64 THEN Al=A1-55:60T0 240 <159> 
238 IF AlI<SB THEN Al=A1l-48 <B87> 
248 IF A2>64 THEN A2=A2-55:6G0T0 2642 <184> 
258 IF A2<S8 THEN A2=A2-48 <11B> 
26B A=Al#1&6+A2: RETURN <098B> 
2728 PRINT"UNGUELTIGERESPACE IHEXCODEESPACEIJIN 
ISPACEIZEILE"PEEK (63? +PEEK (64) #2563END <237> 
280 DATA 20,5F,03,86,7A,84,7B,28 <B61l> 
290 DATA 73,28, ,AA,F2,F3,A2,FF,B6 <130> 
SsaB DATA 3A,90,BA,AZ,B0,864,FF,20 xB977> 
318 DATA 79,05,4C,E1,C7,A2,21,86 <127> 
328 DATA FF,4C,9C,C4,A6,FF,EB,B1 <199> 
33@0 DATA FB,03,40,68,0C5,A9,02,A9 x125> 
348 DATA 080,85,FE,B1,5F,F@,8F,C9 <186> 
3558 DATA 28,DB,03,C8,D8,F5,18,65 <141> 
368 DATA FE,85,FE,40,76,03,00,04 <193> 
3728 DATA 30,F1,C6,D6,A5,D6,48,A2 <198> 
388 DATA 93,A9,28,9D,81,84,BD,B7 <189> 
39B DATA 83,20,D2,FF,CA,10,F2,A6 <217> 
408 DATA FE,AY,00,20,CD,DD,AF,3E <B16> 
418 DATA 28,D2,FF,58,85,D6,20,87 <220> 
428 DATA ES5,A7,8D0,28,D2,FF,A2,0@0 <a03> 
438 DATA 86,FF,F@O,AE,89,53C0,12,13 <B82> 
448 DATA AF,3B,80,082,03,A9,23,8D <249> 
"DATA 85,853,A5,BA,C9,01,D0,10 x235> 
DATA AF,74,8D,32,03,8D,32,03 “239 > 
DATA A9,C4,8D,31,23,80,33,803 <BB7> 
DATA AD,88,02,8D0,90,03,68 <113> 


Der Checksummer für den VC 20 


<181> 
<1777> 
<949> 


aa 67 





Abtippen 
sicher und 
leicht 


gemacht | 


Ähnlich wie der »Checksummer« ist 
auch der MSE ein Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch 
bei reinen Maschinensprache-Pro- 
grammen. 


im Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die Tippar- 
beit um ein Drittel und schließt Fehleingaben vollkommen aus. 
Außerdem können Sie die DATAs blind eingeben, ohne andau- 
ernd auf den Bildschirm schauen zu müssen. Dies wird durch 
akustische Meldungen realisiert. 

Sicher kennen Sie die Situation: Man hat ein langes Listing 
mit DATA-Zeilen abgetippt, versucht es, das erste Mal zu star- 
ten und — nichts läuft. Dann beginnt nach der mühseligen Tip- 
perei die noch mühseligere Fehlersuche. Als letzter Ausweg 
bleibt dann nur noch der Anruf beider Redaktion oder dem Ver- 
fasser, ob vielleicht doch ein Druckfehler... 

Damit ist es jetzt vorbei. Ab dieser Ausgabe werden die Ma- 
schinenprogramme im 64’er mitdem MSE abgedruckt. MSE ist 
ein Maschinenspracheditor, mit dem ein Vertippen ausge- 
schlossen ist. Eine abgetippte Zeile wird nur angenommen, 
wenn sie richtig ist. Wie ist das möglich ? Eine Checksumme 
am Ende jeder Zeile prüft, ob die richtigen Werte in der richti- 
gen Zeile an der richtigen Stelle stehen. Wenn nicht, ertönt ein 
Warnsignal, und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste Zei- 
lennummer wird ausgegeben. Damit ist also auch »blindes« 
Eintippen möglich; Sie können sich voll auf den Text konzen- 
trieren. 

MSE verringert die Tipparbeit um ein Drittel. Anstelle von 
dreistelligen DATAs brauchen Sie nur noch zweistellige Hex- 
Zahlen einzugeben, die direkt in den Speicher gePOKEt wer- 
den. 











So arbeitet man mit MSE 
Laden und starten Sie MSE. Zuerst wird der Programmname 
und die Start- und Endadresse erfragt. Diese Angaben ent- 
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nehmen Sie dem Kopf des jeweiligen abgedruckten Listings. 
MSE meldet sich dann mit der Zeilennummer der ersten Zeile. 
Wenn Sie die Zeile richtig eingegeben haben, erscheint die 
nächste Zeilennummer und so weiter bis zum Ende. Zum 
Schluß wird das fertige Programm mit »CTRL-S« auf Diskette 
oder Kassette abgespeichert. Dazu sind keine weiteren Anga- 
ben mehr erforderlich. Das Programm kann dann ganz normal 
wieder absolut geladen und gestartet werden. Wenn Sie nicht 
alles auf einmal tippen wollen, können Sie jederzeit unterbre- 
chen und den eingetippten Teil mit »CTRL-S« abspeichern. 
Wollen Sie weiterarbeiten, laden und starten Sie MSE wieder. 
Geben Sie auf die Frage nach der Startadresse aber jetzt »L« 
ein, um Ihr Teilprogramm zu laden. Jetzt können Sie mit »CTRL- 
N« die Adresse eingeben, an der Sie weitertippen müssen. 
Wenn Sie sich nicht gemerkt haben, wie weit Sie gekommen 
sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende Ih- 
res Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser Zeile 
müssen Sie anschließend mit »CTRL-N« eingeben. Das Pro- 
gramm ist nur mit »STOP/RESTOREX« zu verlassen. Speichern 
Sie aber vorher unbedingt immer Ihren Text ab. 

Wollen Sie selbst Programme mit MSE ausdrucken, laden 
Sie Ihr Programm wie oben beschrieben und geben anschlie- 
Bend »CTRL-P« ein. Die Druckausgabe läßt sich mit »STOP« je- 
derzeit abbrechen. 


Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Beachten Sie bei der Eingabe die Hinweise im »Checksum- 
mer«. Speichern Sie den »MSE Lader« nach dem Abtippen un- 
bedingt ab. Starten Sie das Programm mit RUN. Fehlerhafte 
Zeilen werden angezeigt und müssen korrigiert werden, bis 
der Lader zum »READY« durchläuft. Jetztmüssen Sie das ferti- 
ge MSE-Programm abspeichern. Dazu brauchen Sie nur »RE- 
TURN« zu drücken, weil die erforderlichen Angaben schon auf 
dem Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 
343 die letzte Zahl in »1« abändern). Ab jetzt können Sie »MSE 
V1.0« direkt, also ohne den DATA-Lader benutzen. MSE V1.0 
wird ganz normal mit »,8« geladen. Heben Sie das Programm 
gut auf, Sie werden es noch häufig brauchen. 


(N. Mann/D. Weineck/gk) 


MSE-Befehle: 


DEL 
CTRL-S 
CTRL-L 


löscht die letzte Eingabe. 
speichert das eingetippte Programm ab. 
lädt ein Programm. Start- und Endadresse werden automa- 


tisch ermittelt. 
CTRL-M listet den Speicherinhalt. Abbruch mit STOP-Taste, weiter mit 
Leertaste 
erlaubt die Eingabe einer neuen Adresse zum Weitertippen. 
gibt ein MSE-Listing auf dem Drucker aus. 


CTRL-N 
CTRL-P 


Die Befehle des MSE auf einen Blick 
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Listing von MSE (Schluß) 








kann über die Funktionstasten sehr einfach und schnell ge- 
VC 2 Ö steue rt wählt werden. Das Programm informiert ständig über die Ge- ' 
’ samtzahl der aufgenommenen Einzelbilder, über die effektive 
Laufzeit und die gewählte Bildfrequenz. 


Su per 8- (Wolf-D. Robrahn/ev) 
Ka m e ra | Die verwendeten Variablen 


Ein kleines Programm und eine A = gewählte Bildfrequenz 
u. C = Summe der gemachten Bilder 
schnell aufgebaute Schaltung für alle | KiX)= festgelegte Frequenz 
® . Pi = Variable für F-Tasten-Änderun 
Tr ickfilmer. Q = Allzweck-Variable ° 
Beim Erstellen von Trickszenen mit der Super 8-Kamera fal- T = Allzweck-Variable 
len regelmäßig lästige Rechnungen an: Die Anzahl der bereits T2 = Schleifenlänge für An und Aus 


aufgenommenen Bilder muß festgehalten, die resultierende X = momentane Bildanzahl 


effektive Wiedergabezeit muß berechnet werden. Schließlich 
ist auch das Einhalten einer bestimmten Bildfrequenz bei Ein- 
zelbildaufnahmen von Hand kaum möglich. 

Da fast jede Super 8-Kamera über einen Anschluß für einen 
elektrischen Fernauslöser verfügt, bietet sich eine Steuerung Anschluß der Schaltung an den User-Port 
per Computer geradezu an. Der Hardware-Aufwand be- 
schränkt sich dabei auf einen Transistor BC-238 (oder ähnlich) 


als Treiberstufe und ein handelsübliches 5-Volt-Relais, wie es User-Port 

jeder Elektronikladen vorrätig hat. 'Die beiden Bauteile werden SV GND 
an den LserFön des VC 20 geschaltet. Uber die Adresse Pin2 Pin12 
37136, dem Ausgaberegister von Port B des User-Port-ViA, 


läßtsich das externe Relais dann ein- und ausschalten. Die Pin- 
Belegung des User-Ports kann im Handbuch nachgeschlagen 
werden. 

Der Aufbau der Schaltung ist völlig unkritisch, sollte aber 
dennoch mit großer Sorgfalt erfolgen, daeine falsche Beschal- 
tung zur Zerstörung des VIA führen kann. 

Das Programm zur Kamerasteuerung ist bewußt einfach ge- 
halten und erklärt sich weitgehend von selbst. Die Bildfrequenz 
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Listing »Super 8-Steuerung« 
SUPER 8 STEUERUNG 





REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

FOKE 377128,259 

POEE 77125,2 

[=2: T2=288 

BERKER TI HR HUHN 

SEM BELEGUNG DER F-TASTEN# 

REM OHREN 

FRINT" ICLR, 4DOWNIBILDFREQBUENZ" 

FRINT" ZDOWNIFUERTZSFACEIFI-"3 

INFUT Kl) 

FRINT"FUER{ZSPACEIFS-"3 

INPUT K(23 

FRINT"FUER{TZSPACEIFS-"3 

INFUT E13) 

FRINT"FUER {ZSFACEIFT# 

INFUT Ki4) 

REM ORTEN 

REM AUFBAU DES BILDSCHIRMES * 
E REM OR IE 
FRINT’ICELRF" 


WOLF-D. ROBRAHN 
BEETHOVENSTR.18 
2228 ELMSHORN 
TEL: 94121774735 





SUNDUIBIA IM 


























5 PRINT" {HOME ,ZRIGHTIFI="E(13" BILDER" 
98 FRINT" TSRIGHTIFF="K 2)" BILDER" 
935 FRINT"{SRIGHTIFS="KI2)" BILDER" 
96 FRINT"{SRISHTIF7="K(4)" BILDER" 









FOR B=1 TO Z2:FRINT"Z"S:NEXT . 
1P23 FRINT" {DOWN ,RIGHTIJETZISE RBILDFREQUENZ:" 
B7B: 
118 FRINT" {2SPACE}%##r8 I2SPACEI" 
115 PRINT" <DORN, RIGHTFZAEHLER: " 
128 FRINT" {ZDOWN ZRISGHTIDRUECEEN SIE EINE 
ZFSPACEIF- TASTETLISPACEIFUER START" 
FRINT" {3DOWN?"TAR (FI "BILDER TOTAL" 
FRINT" {DOWNF"’TABUTI "LAUFZEIT SEC." 
REN BBBBBHRRHEHHHRHEN RE 
REM TASTATUR ABFRÄGE * 
REM Re 
SET Ar 2 
IF AFZSCHRE(I1ZZIAND AFXICHRE(OLZA)AND A 
REI1SSDIAND AFTSCHRFÜLSSIAND AFZ>"N"THEN 
<BR 
IF AF=CHREILZIZITHEN A=K (1): GDSUR 
IF AF=CHRE(124) THEN A=K (2): GDOEUEB 
IF A$=CHREFELSZSYITHEN Ask it): 6GOSUR 
IF AF=CHRFE(IZ&EI THEN Ask (4) 2G0SUR 
IF A$="A"THEN 2282 
REM BB j <B65> 
REM STEUERUNGSABLÄAUF * 
REM BB 
FOR X=1 TO A 
FOKE 271354,1 
FRINT" {HDME ,„ 1BDOWN, 1BRIGHT ,SSPACE}" 
FRINT" {HOME , 1BDOWN, 1BRISHTF"X 
FOKE 345878,18 
FOKE 35874,231 
FOR T=1 TD I12:NEXT 
FOKE 34874,B:POKE 36878,8 
FOR T=1 TO TZ:NEXT 
FOKE 37126,8 
FOR T=1 TO TEENEXT 
NEXT 
C=C+A: PRINT" {HOME , 1FDOWNI"C 
FRINT" DOWN, SSPÄACEF" 
FRINT"{UFF"INT(C#H12/19) 718 
G0TO 85 
REM BRBBRRBRBRRRHBRRSHHHAHRISHEHIBHOHSHHRIHOHHEIRE 
287: 
REM ZEILEN LOESCHEN + ANZEIGE DER FREQUENZ * 


<BS1> 








122 
123 
124 
125 
126 
i27 
130 













1202 
iD00 
1n00 
1008 


140 
158 
140 
178 
188 
198 
192 













Z20 
218 
=i12 
214 
228 
23 

242 
258 
260 
278 
275 
2288 
235 
286 
287 
29782 
777 

























FF78 
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FIT REM RER HEREIN TERN HER 
xBaF"> 


1282 
1081 
1307 
18073 
19977 
17978 
1997 
zu08 

FREQUENZ AENDERN?" 
2805 
zB2& 
2618 
2828 
zu:02 


RETURN 

REM Runner 
REM AENDERUNGEN * 
REM Kuren 


IF Af="N"THEN 3202 
PRINT" {2DDWNIFUER" 


LIE 


FRINT" {HOME „BDOWN , ZRIGHT „45SFACE 3" 
PRINT" {HOME ‚BDOWN,ZRIGHTF"A 
PRINT" {HOME , 13DOWN , &25PACE}" 


FRINT" {SSPACE „RVSONFZLF{RVOFFI= Fi" 
PRINT" {DOWN BSPACE ,RYSONJZEH{RVDOFFI= F2" 


x1575 
KaZE> 
186° 
2124> 
213537 
<1B6> 
21335 


FRINT" {CLRISIE WOLLEN DIE BILD-{2SFACE} 


x191> 


GET At: IF At<H"J"AND AFTH"N"THEN 2885 <118> 


£128> 
<BIE> 


<203> 


ERIE 


ZB48 


FRINT" ZDOWN, BSPADE „RVSON}ZS>{RVOFFI= FS" 


Z2Ab 


2058 


FRINT" {DOWN ,SSPACE ,‚RVSON}T4F {RVOFF}= F7" 


28845 


2068 
2865 
2070 
2870 
ZaBO 


INPUT" {ZDOWNJ";Pi 


INPUT" {ZDOWNYNEU: 
G0TO 88 


PRINT" {UP}ALTE FREGUENZ="K(P1) 
“sKcp1} 


1875 
<115> 
“1213 
<B3S> 


PRINT" {CLR,2DOWNISIE WOLLEN DIE BILD- 
{ZSFACEFFOLGE AENDERN!" 


<172> 


2218 FRINT" {2DOWNFMOMENTANE SCHLEIFEN- {2SPACEF 


LAENGE"TZ 


Za:2 INPUT" {2DOWNINEUE SCHLEIFENLAENGE":TZ 


3852 GOTO 88 


20978> 
<247> 


22085 








G K/Pus A — 
Listings gesucht 


Die neuen Commodore- 
Computer C 16/1l6&und Plus 4 
sind inzwischen schon in grö- 
ßeren Stückzahlen verkauft 
worden. Gehören Sie viel- 
leicht zu den Käufern der er- 
sten Stunde und haben des- 
halb schon Erfahrungen da- 
mit sammeln können? Oder 
haben Sie vielleicht schon in- 
teressante Programme für 
diese Computer entwickelt? 

Dann sollten Sie einmal 
zur Schreibmaschine (bezie- 
hungsweise zur Textverar- 
beitung) greifen und eine 
möglichst ausführliche Pro- 
grammbeschreibung erstel- 
len. Anschließend werfen Sie 
den Drucker an, um ein Pro- 
grammlisting zu erzeugen 
und kopieren dann das Pro- 
gramm auf einen Datenträ- 
ger (Diskette oder Kassette). 

Zum Schluß entwerfen Sie 


noch ein kurzes Änschrei- 


ben, auf dem Sie bitte unbe- 
dingt Name, Anschrift und 


. Telefonnummer vermerken 


und (ganz wichtig!) auch er- 
wähnen, für welchen Compu- 


ter das Programm geschrie- 
ben wurde und welche Er- 
weiterungen und zusätzliche 
Geräte notwendig sind. 

Auf den Briefumschlag, in 
den Sie diese Unterlagen 
stecken, schreiben Sie bitte 
neben Ihrem Absender noch 
folgenden Text: 


An die 

Redaktion 64’er 

Markt& Technik Verlag AG 
Hans-Pinsel-Straße 2 

8013 Haar bei München 


Ein oder zwei Tage, nach- 
dem Sie den Brief zur Post ge- 
bracht haben, kommt er bei 
uns in der Redaktion an. Wir 
freuen uns über die Zusen- 
dung, testen das Programm 
und entscheiden über die 
Veröffentlichung. 

So ist allen geholfen: Unse- 
re Leser finden ständig inter- 
essante Programme in ihrem 
64’er Magazin, wir Redakteu-, 
re haben Arbeit und Sie be- 
kommen bares Geld — 100, 
200, 300 oder auch 2000 


Mark. 
Jap 71 





Ohne gutes 
Werkzeug 
geht es nicht: 
SMON (Teil 4) 


Der Trace-Modus, also das Abarbeiten 
von Maschinenprogrammen Schritt 
für Schritt, ist das wohl wichtigste 
Hilfsmittel beim Austesten von Ma- 
schinenprogrammen. SMON bietet so- 
gar drei verschiedene Trace-Möglich- 
keiten, die in diesem vierten Teil darge- 
stellt werden. Außerdem erhalten Sie 
eine Übersicht aller Befehle, und wir 
zeigen Ihnen, wie Sie SMON in einen 
anderen Bereich verschieben können. 


Einen Befehl haben wir Ihnen bisher unterschlagen, der 
zwar bereits vorhanden, aber noch nicht beschrieben war. Es 
handelt sich um den Vergleich zweier Speicherbereiche. Die 
Syntax ist sehr einfach: 
= 4000 6000 
vergleicht den Speicherinhalt ab $4000 mit dem ab $6000. 
Das erste nicht übereinstimmende Byte wird angezeigt, und 
der Vergleich wird abgebrochen. 

Wenn Sie also ein Maschinenprogramm geschrieben und 
überarbeitet haben und Sie wissen nichtmehr genau, worin ei- 
gentlich der Unterschied zwischen der 76. und der 77. Ver- 
sion besteht, gehen Sie so vor: Laden Sie zuerst Version 76 
und verschieben Sie diese mit dem »W«-Befehl in einen freien 
Speicherbereich. Laden Sie dann Version 77 und führen Sie 
den »=«-Befehl durch. Sofort finden Sie den Unterschied und 
können mit der Arbeit an Version 78 beginnen.... 

Wir wollen uns bei der Beschreibung der Trace-Befehle auf 
Anwendungsbeispiele konzentrieren. Zum Aufbau der Routine 
sei nur so viel gesagt: Gesteuert wird sie mit Hilfe des 
Prozessor-Interrupts, weil nur damit ein Eingriff ins laufende 
Maschinenprogramm möglich ist. Während des Trace-Ablaufs 
wird deswegen der Bildschirm kurzfristig aus- und eingeschal- 
tet, weil alle anderen Interruptanforderungen wie zum Beispiel 
durch den Video-Chip, verhindert werden müssen. Da die Be- 
fehle eines Programms nicht nur angezeigt, sondern auch 
wirklich ausgeführt werden, ist der »SEl«-Befehl mit großer Vor- 
sicht zu verwenden. Doch dazu später mehr. Wir wollen ein 
neues, besser geeignetes Beispiel verwenden als bisher. Tip- 


pen Sie also das folgende Miniprogramm mit dem Assembler 


ein (A 4000): 


lade den Akku mit (ASCI!-) O 
gib Akku auf dem Bildschirm aus 


erhöhe Akku um 1 


vergleiche Akku mit (ASCII-) 9 
springe, wenn Akku kleiner, zurück 
springe in SMON zurück 
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Starten Sie das Programm mit »G 4000«. Es muß die Zahlen 
von O bis 8 auf den Bildschirm schreiben. 
+ Trace-Stop 
TS (Startadresse Stoppadresse) 

Starten Sie nun unser Programm mit 
TS 4000 4009 

Die ersten Befehle werden ausgeführt (die Null ausgege- 
ben, der Akku erhöht etc.), dann stoppt das Programm bei 
Adresse $4009 und springt in die Registeranzeige. 

Genau genommen ist »TS« gar kein Trace-Befehl, das Pro- 
gramm läuft nämlich bis zur gewählten Stoppadresse in Echt- 
zeit durch. Dort angekommen, können Sie die Register prüfen 
und gegebenfalls durch Überschreiben ändern. Mit »G«, »TWe« 
oder »TB« (wird später erklärt) ohne weitere Adresseneinga- _ 
ben können Sie dann im Programmlauf fortfahren. SMON 
merkt sich nämlich, wo er stehen geblieben ist und arbeitet ab 
dieser Adresse weiter, wenn Sie nicht eine neue angeben. 

Sinnvoll ist dieser Befehl immer dann, wenn in einem länge- 
ren Programm nur bestimmte Teile »getraced« werden sollen, 
der Anfang aber durchlaufen werden muß, um Variable zu set- 
zen oder Benutzereingaben zu erfragen. Auch wenn man nicht 
ganz sicher ist, ob eine bestimmte Passage überhaupt jemals 
durchlaufen wird, kann man das mit »TS« überprüfen. 

Zwei Einschränkungen gibt es allerdings wegen der Arbeits- 
weise dieses Befehls: SMON setztim Programm an die Stopp- 
adresse einen BRK-Befehl und merkt sich, welcher Befehl 
dort stand, um ihn wieder zurückzuschreiben. Deshalb funk- 
tioniert sTS« nur im RAM, nicht aber zum Beispiel im Basic oder 
im Betriebssystem. Auch darf die Speicherstelle, in der sich 
SMON den ausgetauschten Befehl merkt ($02BC) vom Pro- 
gramm nicht verändert werden, sonst isteine korrekte Repara- 
tur nicht mehr möglich. 

Der wohl am häufigsten und vielseitigsten eingesetzte 
Trace-Befehl ist sicherlich »TW«. 

* Trace Walk 
TW (Startadresse) 
Starten Sie unser Beispiel jetzt mit TW 4000 

Der erste Befehl (LDA #30 in Adresse $4000) wird ausge- 
führt, SMON stoppt und zeigt dann die Inhalte aller Register in 
der gleichen Reihenfolge wie beim »R«-Kommando sowie den 
nächsten Befehl an. Im Akku steht jetzt 30, der Programmzäh- 
ler zeigt auf $4002. Jetzt drücken Sie eine Taste. Der nächste 
Befehl (JSR FFD2) wird ausgeführt, der Programmzähler zeigt 
auf $FFD2. Achten Sie auf den Stackpointer: Sein Inhalt hat 
sich um 2 vermindert, weil der Prozessor auf dem Stack die 
Adresse abgelegt hat, an die er nach Beendigung der Subrou- 
tine zurückspringen soll. Der nächste angezeigte Befehl ist ein 
indirekter Sprung über $0326. Mit dem nächsten Tastendruck 
wird er durchgeführt. 

Und so geht es munter weiter. Verzweifein Sie nicht, wenn 
Sie auch nach den nächsten zehn Tastendrücken immer noch 
irgendwo im Betriebssystem »herumtracen« und von unserem 
Beispielprogramm weit und breit nichts mehr zu sehen ist. 
Ausnahmsweise ist unser Liebling einmal nicht im »Land der 
Träume« verschwunden, sondern tut, was er soll: Er arbeitet 
brav einen Befehl nach dem anderen alles ab, was zur Routine 
$FFD2 gehört, und das ist reichlich viel. Also bewegen Sie Ih- 
re Finger, Sie haben's ja nicht anders gewollt. Irgendwann ein- 
mal, nach mehreren hundert gedrückten Tasten, befinden Sie 
sich plötzlich wieder in der Registeranzeige von SMON. Das 
Programm ist beendet. Nun werden Sie enttäuscht fragen, 
was man wohl mit einem Trace-Modus anfangen soll, der 
schon bei kleinsten Beispielprogrammen ein völlig undurch- 
schaubares Chaos erzeugt? Nur Geduld, die Rettung naht in 
Gestalt der Taste »J«. 

Falls ihre Hand noch nicht in Gips liegt, starten Sie das Gan- 
ze nochmal von vorn mit »TW 4000«. Diesmal drücken Sie aber 
jedesmal, wenn als nächster Befehl »JSR FFD2« angezeigt 
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wird, auf »J«. Der Effektist, daß die gesamte Subroutine auf ei- 
nen Schlag abgearbeitet wird und Sie sofort wieder auf dem 
nächsten Befehl unseres Beispiels landen. Daß wir nicht ge- 
mogelt und die Befehle von »JSR FFD2« einfach unterschla- 
gen haben, sehen Sie daran, daß der Akku tatsächlich auf dem 
Bildschirm ausgegeben worden ist (rechts neben FFD2). 
Jetzt können Sie unser Beispiel in aller Ruhe bis zu Ende 
durchgehen und verfolgen, wie der Akku erhöht wird, wie der 
Vergleich das Statusregister beeinflußt und wie dementspre- 
chend der Rücksprung in die Schleife erfolgt. 

Sie dürfen die »J«-Taste auch dann benutzen, wenn Sie 
schon mitten in der Subroutine sind. Aber hierbei ist äußerste 
Vorsicht geboten: Die Rücksprungadresse muß unbedingt 
oben auf dem Stack liegen, wenn Sie »J« drücken. Hatnämlich 
der Prozessor Werte auf dem Stack abgelegt (mit PHA oder 
PHP), dann erfolgt der Sprung irgendwo hin, nur nicht zurück 
ins Programm. Achten Sie deshalb genau auf die Anzeige des 
Stackpointers. Wenn dessen Wert genau so groß ist wie bei 
Beginn der Subroutine, kann nichts passieren. Sonst hilft nur 
noch der Reset-Taster, den Sie ja inzwischen hoffentlich ein- 
gebaut haben, oder eine ruhige Hand, die die Büroklammer an 
Pin 1 und 3 des User-Ports hält (Kostenpunkt der Reparatur 
bei Abrutschen zirka 100 Mark...) 

»TW« bricht automatisch mit der Registeranzeige ab, wenn 
im Programm ein »BRK«-Befehl auftaucht. Wenn Ihnen das zu 
lange dauert oder Sie zwischendurch ein Register ändern 
möchten, können Sie den Trace-Modus jederzeit mit der 
Stopp-Taste verlassen. Anschließend können Sie wie bei sTS« 
beschrieben fortfahren. 

im Gegensatz zu »TS« können Sie mit sT’W« auch im ROM 
herumstöbern; Sie haben es ja bei der Subroutine $FFD2 be- 
reits getan. Einzige Einschränkung beim sTW«-Befehl: Ihr Pro- 
gramm darf keinen »SEl« enthalten, da dieser den Interrupt und 
damit auch den Trace-Modus lahmlegt. Verlassen Sie in die- 
sem Falle »TW« mit STOP und starten erneut hinter dem »SEi«- 
Befehl. Allerdings müssen Sie in Kauf nehmen, daß das Pro- 
gramm normalerweise nicht mehr korrekt arbeitet. 

Das nächste Programm soll als weiteres Beispiel für den TW- 
Modus dienen. Geben Sie es folgendermaßen ein: 






5000 LDA #00 lädt den Akku mit »0« 
5002 TAX überträgt den Akku ins X-Register 
5003 ‚0C ein mysteriöses Byte 
5004 LDA #04 lädt den Akku mit »4« 






überträgt den Akku ins Y-Register 
springt in SMON 






Wenn wir dieses kleine Programm abarbeiten, müßte das X- 
Register auf »0O« stehen, während Akku und Y-Register mit »4« 
geladen sind. Starten wir also das Programm mit »G 5000« 
und schauen uns die Register an. 

Seltsamerweise enthalten alle Register eine »O«. Vorsichtig, 
wie wir sind, überschreiben wir die drei Register mit »FF«, um 
die Veränderung deutlich kontrollieren zu können. 

Dann starten wir mit »G 5000« ein zweites Mal. Gegen alle 
Gesetze der Vernunft erscheint wieder das »falsche« Ergebnis 
— alle drei Register sind »0«. Hier soll uns jetzt der TW-Modus 
weiterhelfen, indem er uns zeigt, was in Wirklichkeit passiert. 

Geben wir sIW 5000« ein. Der erste Befehl (LDA #00) ist 
durchgeführt, im Akku erscheint die Null. Jetzt steht der Pro- 
grammzähler auf dem folgenden Befehl »5002 TAX«. Nach 
Drücken einer Taste wird dieser Befehl ausgeführt und es er- 
scheint die Null im X-Register. Beim folgenden Befehl müssen 
wir feststellen, daß der Disassembler nicht in der Lage ist, ihn 
zu interpretieren — er gibt drei Sternchen aus. Hierbei handelt 
es sich um unser Byte »00«. 

Wieder ein Tasteridruck; und dann erkennen wir, daß etwas 
Merkwürdiges passiert ist. Der Prozessor hat augenscheinlich 
den nächsten Befehl (LDA #04) übersprungen und steht 
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schon auf dem folgenden »TAY«. So also wird unser Programm 
abgearbeitet. Damit ist auch das »falsche« Ergebnis erklärt. 
Bleibt nur noch die Frage nach dem Grund für dieses seltsame 
Verhalten. Und der ist sicherlich in dem mysteriösen Byte 
»OC« zu suchen. Hierbei handelt es sich um einen der »inoffi- 
ziellen« Opcodes (auch Pseudo-Opcodes genannt), die auf- 
grund der Prozessorarchitektur vorhanden sind und in man- 
chen Programmen ihr Unwesen treiben — wie wir zu unserem 
Leidwesen erfahren mußten. Das Byte »OC« wirkt wie ein 
»NOP«, der eine Länge von 3 Byte hat. Deshalb wird der fol- 
gende 2-Byte-Befehl (LDA #04) verschluckt. 

Es gibt noch einiges zu entdecken am 6502 und 6510 — 
TW macht's möglich. i 

Häufig ist es nicht sinnvoll, ein Programm von Anfang an im 
TW-Modus laufen zu lassen. Zum anderen sind gerade Schlei- 
fen, die per Hand mit sTW« durchlaufen werden müssen, eine 
ermüdende Angelegenheit. Hier bietet SMON neben dem be- 
reits beschriebenen »TS« eine weitere Trace-Möglichkeit an: 
* Trace Break 
TB (Adresse Anzahl der Durchläufe) 
* Trace Quick 
TQ (Adresse) 
Geben Sie als Beispiel folgendes Programm ein: 


Y als Zähler auf »0« 

Werte von $600E ff. sollen-geladen 
werden 

Ausgabe der Zeichen auf dem Bild- 
schirm 


der Zähler wird erhöht 
Zähler schon »14«? 
wenn nein, dann nächsten Wert holen 





Bei $600E soll nun ein Text stehen, den das Programm aus- 
gibt. Die einfachste Art, mit SMON Texte in den Speicher zu 
schreiben, besteht im »K«-Befehl. Geben Sie 
K 600E 
ein (danach natürlich Return) und drücken Sie die STOP-Taste. 
Fahren Sie mit dem Cursor an das erste ausgegebene Zeichen 
(vermutlich ein Punkt) und schreiben Sie — ohne Anführungs- 
zeichen: 

»FEHLER BEHOBEN« 

Drücken Sie dann Return, um die Zeile an den Rechner zu 
übergeben. Wenn Sie das Programm starten, werden Sie wie- 
der einmal Gelegenheit haben, sich in Ruhe etwas zu trinken 
zu holen (Prost!), denn das Programm enthält einen dummen 
Fehler und beschäftigt den Computer für eine lange, lange 
Zeit. Genauer gesagt, bis Sie ihn mit Reset (zum Beispiel 
durch RUN/STOP-RESTORE) erlösen. 

Nun soll SMON helfen, diesen Fehler zu lokalisieren. Setzen 
Sie zuerst einmal einen Breakpoint bei $6002 und begrenzen 
die Durchläufe auf die maximale Anzahl: 

TB 6002 OE 

und starten mit 

TQ 6000 

den Quicktrace bei $6000. Das Programm läuft so lange, bis 
zum 14. Mal die Adresse $6002 erreicht wird und springt 
dann in den TW-Modus. Wenn Sie sich jetzt die Registerinhalte 
genau anschauen, müßte ihnen der Fehler geradezu ins Auge 
springen. Wie groß sollte denn das Y-Register sein? Welchen 
Wert sollte der Akku haben? NA?! (Auflösung erfolgt mit der 
Bekanntgabe der Gewinner des großen Preisausschreibens 
aus dem letzten Heft...) 

Wenn Sie eine Zeitlang mit SMON gearbeitet haben, werden 
Ihnen eventuell einige Voreinstellungen nicht gefallen. Be- 
sitzer einer Datasette zum Beispiel müssen jedesmal mit »I O1« 
auf ihre Geräteadresse einstellen. Wenn Sie sich an unserem 
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»Preisauschreiben« vom letzten Mal beteiligt haben, dürften 
Ihnen diese Speicherstelien bereits bekannt sein. Übrigens 
sind zirka 235.982 richtige Lösungen eingegangen; wir ha- 
ben daraufhin ein Programm geschrieben, um den Gewinner 
zu ermitteln. Dieses läuft zur Zeit auf einem Großrechner in 
“ den USA, da der Speicher des C 64 nicht ausreichte. Wir wer- 
den Sie nach Abschluß des Programmlaufes, den wir für Mitte 
Juni dieses Jahres erwarten, informieren.... 

Soliten Sie nicht zu den glücklichen Gewinnern zählen, ge- 
ben wir Ihnen im folgenden die Speicherstellen an, in denen 
die Voreinstellungen stehen. Diese können Sie dann mit dem 
»Me«-Befehl Ihren Wünschen entsprechend abändern. 

Vergessen Sie aber nicht, Ihre geänderte Version mit »S 
’@:SMON $C000” COOO CEO%« abzuspeichern. 


Hintergrund-Farbe $C220 
Schreibfarbe $C228 
Ger. Adr. Drucker $C21B 
Ger. Adr. F1/Cass $C216 


Wer steht wo ? — Wegweiser durch SMON 

Wollen Sie Routinen in SMON analysieren oder verändern, 
müssen Sie die Einsprungadressen der einzelnen Befehle 
kennen. Diese lassen sich leicht finden: 

Am Anfang des Programms (ab $COOB) befindet sich eine 
Liste aller Kommandos gefolgt von den Adressen (ab $CO2B), 
bei denen diese Befehle beginnen. Lassen Sie sich mit »M 
COOB CO2B« die Befehlsliste anzeigen (siehe Bild 1). Sie se- 
hen, daß am Ende 5 Nullen stehen; hier können Sie eigene 
neue Befehle einbauen. Mit »M CO2B CO6B« erhalten Sie die 
Liste der Einsprungadressen, immer in der Reihenfolge Low- 
Byte — Hig-Byte, diesmal mit 10 Nullen am Ende, weil ja zu je- 
dem Befehl 2 Byte für die Adresse gehören. 

Wir wollen nun als Beispiel heraussuchen, wo die Routine 
zum Füllen eines Speicherbereichs mit einem vorgegebenen 
Byte steht. Der Befehl dazu ist »O«, also der 20. Befehl 
($CO1E). Die zugehörige Adresse ist ebenfalls die 20. in der 
Liste also $C9YCO (in Speicherstelle $C051/$C052). Die Rou- 
tine beginnt allerdings immer erst ein Byte später, in unserem 
Fall also bei $C9C1: 

Disassemblieren Sie jetzt diese Routine mit »C C9C1 
C9D3«. Sie erhalten folgende Befehle (natürlich ohne Kom- 
mentare): 






holt zwei Adressen nach $FB/FC 
und $FD/FE 












JSR C28D holt das gewünschte Byte in den 
Akku 

LDX #00 initialisiert X-Register als Zähler 

LOOP STA (FB,X) speichert den Akku-Inhalt in der er- 

sten Adresse ab 

PHA merkt sich den Akku-Inhalt 

JSR C463 erhöht die Adresse und vergleicht 
mit der Endadresse 

PLA holt Akku-Inhalt zurück 

BCC C9C9 wenn Ende nicht erreicht, dann 


Sprung auf LOOP 


Wenn Sie nun zum Beispiel den »O«-Befehl nur zum Lö- 
schen verwenden möchten, könnten Sie die Routine so abän- 
dern, daß nur die beiden Adressen eingegeben werden müs- 
sen. Überschreiben Sie einfach den Befehl JSR C28D mitLDA 
#00 im Disassemblerlisting, disassemblieren Sie erneut mit 
»D C9C1 C9D3« und überschreiben Sie die drei Sternchen 
bei C9C6 mit einem »NOP«, um die entstandene Lücke 
(3-Byte-Befehl wurde durch 2-Byte-Befehl ersetzt) aufzufül- 
len. Nun können Sie Ihre veränderte Routine ausprobieren. 
Geben Sie zum Beispiel »O 5000 5200« ein und überzeugen 
Sie sich mit »M 5000 5200« von der korrekten Ausführung. 
Sie können auch die so veränderte Routine mit »W C9C1 
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C9D3 CEO9« ans Programmende kopieren und sich einen 
neuen Befehl »E« (Erase) schaffen. Sie brauchen dann nur in 
die erste Null am Ende der Kommandotabelle »45« (für »E«) 
und in die ersten beiden Nullen der Adreßtabelle »08« und 
»CE« zu schreiben (für die Adresse $CEO9). 

Machen Sie sich ruhig einmal die Mühe, auch andere Routi- 
nen im SMON auf diese Art und Weise zu analysieren und zu 
ändern. Erstens macht es Spaß und zweitens können Sie 
SMON Ihren eigenen Wünschen anpassen. Vielieicht fallen Ih- 
nen janoch Routinen ein, die in SMON fehlen. Wir würden uns 
über Verbesserungsvorschläge freuen. 


Das »Gedächtnis« von SMON 


Wenn Sie Programme mit SMON untersuchen oder verän- 
dern wollen, müssen Sie noch wissen, welche Speicherstel- 
len SMON verwendet. Es soll ja Monitorprogramme geben, die 
die Basic-Zeiger als Arbeitsspeicher benutzen, so daß ein 
Basic-Programm nach dem Rücksprung aus dem Monitor ge- 
löscht ist. SMON tut so etwas nicht. Aber natürlich braucht er 
auch Speicherstellen, um sich Werte merken zu können. Da- 
mit Sie Konflikten von Anfang an aus dem Wege gehen kön- 
nen, sind die wichtigsten hier dargestelit. 

In der Zeropage beiegt SMON den Bereich von $00A4 bis 
$00B6. Dort stehen Systemvariable für die Kassettenspei- 
cherung und die RS232-Schnittstelle. Diese werden nur wäh- 
rend des Betriebs der Kassette oder von RS232 gebraucht, 
sind ansonsten aber frei. Außerdem werden die Speicherstel- 
len $OOFB bis $OOFF benutzt, die sowieso zur freien Verfü- 
gung des Anwenders vorgesehen sind. Alle anderen Zeiger in 
der Zeropage, also insbesondere die Speicherverwaltung für 
Basic bleiben unbeeinflußt. 

Als weiteren Arbeitsspeicher benutzt SMON den Bereich 
von $02A8 bis $02C0. Auch dieser Bereich wird vom Be- 
triebssystem nicht benutzt, so daß keine Konflikte entstehen 
dürften. Beim Assemblieren wird zusätzlich noch der Kasset- 
tenpuffer als Speicher für die Labels benötigt. Dieser bleibt an- 
sonsten aber auch unverändert; das ist wichtig, wenn Maschi- 
nenroutinen dort abgelegt werden sollen. 

Alles in allem ist SMON also recht verträglich. 


SMON verschieben? — Mit SMON! 


Eine Reihe von Anfragen hat uns erreicht, ob man SMON 
nicht mit Hilfe des »We«-, »V«- oder »C«-Kommandos verschie- 
ben könne. Alle Versuche in dieser Richtung seien fehlge- 
schlagen. Einige Leser meinten auch, in der V-Routine müsse 
ein Fehler stecken. Diesmal sind wir jedoch völlig schuldlos; es 
gibt nämlich einige Befehle in SMON, die keine Sprungadres- 
sen sind und sich trotzdem auf den Bereich ($C000-) bezie- 
hen, in dem SMON steht. 

Dazu gehören in erster Linie die oben erwähnten Einsprung- 
adressen, deren High-Byte natürlich geändert werden muß, 
wenn SMON in einem anderen Speicherbereich laufen soll. Es 
gibt aber auch Befehle, die eine Adresse im Programm in ei- 
nem Vektor ablegen müssen. Disassemblieren Sie einmal den 
Anfang von SMON mit »D CO00 COOßB«. Sie erhalten 


Low-Byte der BREAK-Routine von SMON 
im Break-Vektor abspeichern 


High-Byte (!} siehe oben 
siehe oben 





Damit wird der Break-Vektor des Betriebssystems auf den 
SMON gesetzt und mit dem anschließenden — und jedem wei- 
teren BRK-Befehl — springt das Programm in SMONs BREAK- 
Routine. Wenn SMON in einem anderen Bereich als $C000 
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laufen soll, dann müssen diese Befehle geändert werden. 
Heraussuchen kann man sie mit »FIC*C000 DO00«. Sie 
wissen doch noch, was diese Anweisung bedeutet: Suche mir 
alle Befehle, die ein Register unmittelbar mit einem Wert laden, 
der mit $C beginnt. Aber Vorsicht! Nicht alles, was da ange- 
zeigt wird, muß auch geändert werden! Um Ihnen weitere 


Stunden sinnlosen Herumbrütens zu ersparen, wollen wir als 


Beispiel zeigen, wie man SMON in den Bereich $9000 bis 
$AO000 verlegen kann. Natürlich geht das im Prinzip für jeden 
anderen Bereich genauso; wir selbst haben insgesamt fünf 
SMON-Versionen für fünf verschiedene Speicherbereiche, 
von denen eine immer paßt. 
1. Wir verschieben zuerst das ganze Programm ohne Umrech- 
nen in den neuen Bereich: 

W CO000 CEO9 9000 
2. Nun lassen wir alle absoluten (3-Byte) Befehle umrechnen. 
Die Tabellen am Anfang von SMON bleiben verschont: 

V C000 CEO9 9000 9214 9EO9 
3. Als nächstes ändern wir die High-Bytes der Befehlsadres- 
sen. Geben Sie 

M 902B 906B . 
ein und ändern Sie in jedem zweiten Byte das »C« durch Über- 
schreiben in »9«. Vergessen Sie nicht, am Ende jeder Zeile 
»Return« zu drücken, damit Ihre Änderung auch übernommen 
wird. 
4. Als letztes bleiben noch die oben beschriebenen 
Direktlade-Befehle. Sie müssen so geändert werden, daß sie 
sich auf den neuen Bereich $9... beziehen. Suchen Sie sie mit 

FIC*,9000 9E09 
heraus. Sie erhalten 


ändern 
nicht ändern 
ändern 
nicht ändern 
nicht ändern 
nicht ändern 


nicht ändern 
ändern 
ändern 
ändern 
ändern 
ändern 





Ändern Sie nur in den gekennzeichneten Zeilen das »C« in 
»9« um. Sie sehen, es gibt keine Regel, welche Befehle zu än- 
dern sind und welche nicht. Aus diesem Grunde müssen Sie 
diese Änderungen »von Hand« vornehmen. 

Speichern Sie jetzt die fertige Version unbedingt mit »S 
"SMON $9000” 9000 9EO0% ab. Nun starten Sie die 
9000-Version mit »G 9000« oder von Basic aus mit SYS 
36864 (SYS 9x 4096). Löschen Sie dann den alten SMON 
mit »O CO00 DOOO O@«. Nur so können Sie sicher sein, daß 
der verschobene SMON auch einwandfrei arbeitet und Sie 
nichts übersehen haben. 

Probieren. Sie nun alle Befehle durch. Sie müssen genauso 
arbeiten’ wie bisher. Vor allem können Sie jetzt auch Program- 
me wie »DOS 5.1« oder »Turbo Tape« untersuchen, die im 
$C000-Bereich stehen. Achten Sie aber, wenn Sie »SMON 
$9000« von Basic aus benutzen, darauf, daß das Basic ihn 
nicht überschreibt. String-Variable werden nämlich von $AO0O 
nach unten hin aufgebaut und bis $9EO9 ist nicht viel Platz. 
Schützen Sie im Zweifelsfalle den Bereich, indem Sie nach 
dem Laden des SMON $9000 eingeben: 

NEW : POKE 56,144 : POKE 55,0 

Damit ist SMON vor Überschreiben geschützt. Das ist natür- 
lich bei dem SMON $C000 nicht nötig, weil Basic in diesen 
Bereich nicht hineinkommt. 

Zunächst wieder ein Geständnis: Leider hat uns der Druck- 
fehlerteufel auch in der Dezember-Ausgabe wieder erwischt, 
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aber der arme Kerl will ja schließlich auch seinen Spaß haben. 
Verzeihen Sie ihm und uns 

— daß er im Listing in Zeile 150 ein REM eingeschummelit hat, 
das dort überhaupt nichts zu suchen hat. Es verhindert näm- 
lich, daß die Checksumme geprüft wird und Eingabefehler er- 
kannt werden. 

— daß er auf Seite 62 fälschlich behauptet hat, die »LOAD«- 
Routine beginne bei $C84F. In Wirklichkeit beginnt Sie bei 
$C84E. 

— daß er auf Seite 63 bei den Hinweisen in eigener Sache 
empfiehlt, man möge bei »... Error in 40« (oder in 70) die DATAs 
kontrollieren. Natürlich tritt der Fehler nicht in den REM-Zeilen, 
sondern in Zeile 140 oder 180 auf. 

— daß er schließlich schon vorgearbeitet hat und in der 
Januar-Ausgabe sein schändliches Handwerk getrieben hat. 
Dort steht bei der Beschreibung des 16-Bit-Vergleichs, das 
Zero-Flag sei gesetzt, wenn beide Werte gleich seien. Das 
stimmt auch, aber Sie wissen ja selbst, wo der Teufel steckt, 
nämlich im Detail, und der Druckfehlerteufel macht da keine 
Ausnahme. Er verführt uns nämlich zu dem eigentlich logi- 
schen Schluß, man könne auf die beschriebene Art und Weise 
prüfen, ob zwei 16-Bit-Werte gleich sind. Und genau das geht 
nicht. Das Zero-Flag hat nämlich die unangenehme Eigen- 
schaft, auch dann gesetzt zu sein, wenn der erste Wert bis zu 
255 größer (!) ist als der zweite. Will man also zuverlässig auf 
Gleichheit testen, muß man die beiden Werte voneinander ab- 
ziehen und nachsehen, ob das Ergebnis Null ist. 


Hinweise zum Abtippen 


Wir geloben Besserung und als Zeichen tätiger Reue haben 
wir Ihnen das Eintippen der DATAs leichter gemacht. An ande- 
rer Stelle in diesem Heft finden Sie das Programm »MSE«. Da- 
mit ist ein Vertippen nahezu ausgeschlossen, und schneller 
und bequemer geht's obendrein auch noch. Sie finden also auf 
der nächsten Seite nicht mehr den gewohnten Basic-Lader, 
sondern statt dessen eine Art Hexdump, das Sie mit »MSE« 
eintippen können. Wie das genau geht, erfahren Sie in dem 
zugehörigen Artikel. Nach Beendigung der Tipparbeit spei- 
chern Sie Ihr Werk ab. Laden Sie nun das SMON-Maschinen- 
programm vom letzten Mal und starten Sie es mit SYS 49152. 
Hängen Sie den neuen Teil mit 

»L ”SMON TEIL 4” 
dahinter und speichern Sie das Ganze mit 
S ”"@:SMON $C000” CO00 CE0O% 
wieder ab. Sie haben dann das vollständige Programm (15 
Blöcke auf der Diskette) zur Verfügung. 

Wir hoffen, Ihnen mit SMON ein wirklich brauchbares Werk- 
zeug an die Hand gegeben zu haben. Die vielen Zuschriften 
und Anrufe, die wir im Verlauf dieser Serie erhalten haben, be- 
stätigen uns in dieser Auffassung. Viele Leser sind nach unse- 
rem Eindruck dabei, in die Maschinensprache einzusteigen 
und deren Möglichkeiten zu nutzen. Und genau das wollten 
wir erreichen. 

Damit wären wir eigentlich am Ende dieser Serie angelangt 
und würden uns mit den üblichen guten Wünschen verab- 
schieden. Aber die freien Bytes am Ende von SMON, immer- 
hin von $CEO9 bis $DOOO, also über 500 Byte, haben uns kei- 
ne Ruhe gelassen. Als »Zugabe« werden wir Ihnen deshalb in 
der nächsten Ausgabe noch einen kleinen Diskettenmonitor 
vorstellen, der, in SMON eingebunden, dessen Möglichkeit 
nutzen kann. (N. Mann/D. Weineck/gk) 
Hinweise zu Bild 1 
Alle Eingaben erfolgen in der hexadezimalen Schreibweise. In Klammern 
angegebene Adreßeingaben können entfallen. SMON benutzt dann sinn- 
volle vorgegebene Werte. Bei allen Ausgabe-Befehlen ist gleichzeitig die 
Ausgabe auf einen Drucker möglich. Dazu werden die Befehle geSHiFTet 
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Bild 1. SMON-Befehlsübersicht — P.02 (Printer) 


setzt Geräteadresse 2 für Drucker 
— R (Register) 

— A 4000 (Assembler) zeigt die Registerinhalte und Fiags an. Änderungen sind durch 
symbolischer Assembler (Verarbeitung von Labels möglich) Überschreiben möglich. 
Startadresse $4000 — S ”Test”’ 4000 5000 (Save) 

— B 4000 4200 (Basic-DATA) speichert ein Programm von $4000 - $4FFF unter dem Namen 
erzeugt Basic-DATA-Zeilen aus Maschinenprogramm im Bereich ’Test' ab 
von $4000 - $41FF — TW (4000) (Trace Walk) 

— C 4010 4200 4013 4000 4200 (Convert) führt auf Tastendruck den jeweils nächsten Maschinenbefehl 
in ein Programm, das von $4000 - $4200 im Speicher steht, aus und zeigt die Registerinhalte an. Subroutinen können in 
soll bei $4010 ein 3-Byte-Befehl eingefügt werden. Dazu wird Echtzeit durchlaufen werden (J’). Wird keine Startadresse einge- 
das Programm ab $4010 - $4200 auf die neue Adresse $4013 geben, beginnt ’TW’ bei der letzten mit 'R' angezeigten Adresse. 
verschoben. Alle absoluten Adressen, die innerhalb des Pro- — TB 4010 05 (Trace Break) 
grammbereichs ($4000 - $4200) stehen, werden umgerech- setzt einen Haltepunkt für den Schnellschrittmodus bei $4010. 
net, so daß die Sprungziele stimmen. Der Schnellschrittmodus wird unterbrochen, nachdem $4010 

— D 4000 (4100) (Disassembler) zum 5. Mal erreicht worden ist. 
disassembliert den Bereich von $4000 (- $4100) mit Ausgabe — TQ 4000 (Trace quick) 
der Hex-Werte. Änderungen sind durch Überschreiben der Be- Schnellschrittmodus, springt beim Erreichen eines Haltepunktes 
fehle möglich. in den Einzelschrittmodus. 

— F (Find) — TS 4000 4020 (Trace stop) 
findet Zeichenketten (F), absolute Adressen (FA), relative Sprün- arbeitet ein Programm ab $4000 in Echtzeit ab und springt 
ge (FR), Tabellen (FT), Zeropageadressen (FZ) und Immediate- beim Erreichen von $4020 in die Registeranzeige. Von dort aus 
Befehle (FI) kann (nach evtl. Änderung der Register) mit »G« oder »TW« fort- 

— G (4000) (Go) gefahren werden. »TS« arbeitet nur im RAM-Speicher. 
startet ein Maschinenprogramm, das bei $4000 im Speicher — V 6000 6200 4000 4100 4200 (Verschieben) 
beginnt. ändert in einem Programm von $4100 - $41FF alle absoluten 

— 101 (l/O-Gerät) Adressen, die sich auf den Bereich von $6000 - $6200 bezie- 
stellt die Gerätenummer für Floppy (08 oder 09) oder Datasette hen, auf einen neuen Bereich, der bei $4000 beginnt. 

(O1) ein. j — W 4000 4300 5000 (Write) 

— K A000 (A500) (Kontrolle) verschiebt den Speicherinhalt von $4000 -$42FF nach $5000 
zum schnellen Durchsuchen des Bereichs von $A0O00 ohne Umrechnung der Adressen (zum Beispiel Tabellen) 
(-$A500) nach ASElIl-Zeichen (32 Byte pro Zeile). Änderungen — X (Exit) 
sind durch Überschreiben der ASCIl-Zeichen möglich. springt aus dem Monitor-Programm ins Basic zurück 

— L (4000) (Load) — # 49152 
lädt ein Maschinenprogramm an die richtige oder eine angege- *  Dezimalzahl umrechnen 
bene Adresse ($4000) — $ 002B 

— M 4000 (4400) (Memory-Dump) 4-stellige Hex-Zahl umrechnen 
gibt den Inhalt des Speichers von $4000 (- $43FF) in Hex- — % 01101010 
Bytes und ASCII-Code aus. Änderungen sind durch Überschrei- 8-stellige Binärzahl umrechnen 
ben der Hex-Zahlen möglich. — 70344 + 5234 

— O0 4000 4500 AA (Occupy) Addition oder Subtraktion zweier 4-stelliger Hex-Zahlen 
füllt den Speicherbereich von $4000 - $4500 mit vorgegebe- — = 4000 5000 (Vergleich) 
nem Byte ($AA) aus vergleicht den Speicherinhalt ab $4000 mit dem ab $5000. 


Listing 1. Der 4. Teil von SMON. Um dieses Programm einzutippen, verwenden Sie bitte den MSE, den Sie als Listing 
in diesem Heft finden. 


PROGRAMM : SMON TEIL 4 CBFi CEAS 
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Q + Bert 


Die VC 20-Version des bekannten 
Spielhallenhits. Nur besteht diese Va- 
riante aus drei verschiedenen Bildern. 


Ziel des Spieles ist es, genau wie im bekannten Original, 
sämtliche Felder der Pyramide umzufärben. Das erreicht man, 


indem man einfach auf die noch unbeschränkten Felder . 


springt. Damit es nicht zu einfach wird, ist noch eine Schlange 
mit im Spiel, mit der man nicht in Kontakt kommen darf. Wenn 
man es geschafft hat, alle Felder umzufärben, ohne die Schlan- 
ge zu berühren, gelangt man in die nächste Pyramide. Nach- 
dem auch die dritte Pyramide bewältigt ist, wechseln die Far- 
ben, und man fängt wieder mit der ersten Pyramide an, diesmal 
jedoch mit einem höheren Schwierigkeitsgrad. 

Q + Bert wird mit folgenden Tasten gesteuert: 
A — für einen Sprung nach links oben 
F — für einen Sprung nach rechts oben 
C — für einen Sprung nach links unten 
Z — für einen Sprung nach rechts unten 
Diese Steuerung ist etwas gewöhnungsbedürftig, eine Routi- 
ne zur Abfrage des Joysticks hätte den Programmablauf je- 
doch stark verlangsamt. Außerdem können die Tasten in den 
Zeilen 320 bis 350 leicht geändert werden. 





Das Spielfeld im ersten Bild 


Bei den ersten beiden Pyramiden muß keine besondere 
Strategie angewendet werden. Zu beachten ist lediglich, daß 
man sich nur an der Schlange vorbeibewegen kann, nachdem 
sie aufgeblinkt hat. Weiter ist es hilfreich zu wissen, daß die 
Schlange sichnur dann bewegt, wenn sowohl deren X-Position 
als auch deren Y-Position nicht mit der eigenen X-Position be- 
ziehungsweise Y-Position übereinstimmt. In der dritten Pyrami- 
de kann man sich nicht an der Schlange vorbeimogeln. Aus 
diesem Grund muß man zuerst alle Felder umfärben, auf die die 
Schlange nicht gelangen kann und sie dann auf die umgefärb- 
ten Felder locken. Danach können die restlichen Felder umge- 
färbt werden. 

Falls das Spiel so zu leicht erscheint, kann in Zeile 580 der 
Schwierigkeitsgrad erhöht werden, indem »S* 2« durch »S* 3« 
ersetzt wird. 

(Oliver Pabst/ev) 


72 AN 








Zeile Funktion 

10 Herabsetzen des für Basic verfügbaren 
Speicherplatzes 

25-45 Erstellung des neuen Zeichensatzes 

46-60 Festlegen der Variablen und Setzen 
der Farben 

75 Aufruf zum Drucken der Pyramide 

80-90 Initialisieren des Farb-RAMs (Modus 
für mehrfarbige Zeichen) 

300-350 Tastaturabfrage 

360-370 Tastaturpuffer entleeren / Schrittgeräusch 

410-415 Fehlende Teile der Pyramide an die alte 
Position POKEn 


420-421 Zeichen der Pyramide an der neuen 


Position ermitteln 

424-430 Q+BERT am Rand der Pyramide? 

440-445 Q+BERT POKEn 

500-505 Feld schon umgefärbt? 

520 Punktestand ausdrucken 

530-560 Gesamte Pyramide umgefärbt? 

580 - Gegner bewegen? 
{RD kleiner 21-S*2) 

600-630 Neue Position des Gegners errechnen 

660-666 Fehlende Teile der Pyramide an die alte 
Position POKEn 

670-675 Zeichen der Pyramide an der neuen 
Position ermitteln 

676-677 Gegner am Rand der Pyramide? 

678-680 Gegner POKEn 

1000-1500 Erste Pyramide drucken 

2000-2050 Feld umfärben / Punktestand erhöhen) 

3000-3200 Zweite Pyramide drucken 

4000-4200 Dritte Pyramide POKEn 

5000-5310 : Unterprogramme, die testen, ob die 
Bewegung des Gegners möglich ist, 
oder er von der Pyramide springt 

8000-8050 Unterprogramm zum Abziehen der Punkte 

10000-10200 Daten für die Umprogrammierung des 

j Zeichensatzes 

20000-20060 Fall von der Pyramide 

20080-20100 Wackein des Bildschirms 

20200-20260 Abfrage, ob noch ein Spiel und Ausgabe 
der erreichten Punkte 

30000-30020 Gegner fängt Q+BERT 


Der Programmaufbau von »Q +Bert« 


— Entscheidet, welche Pyramide gedruckt wird 
— Entscheidet, ob Gegner bewegt wird 

— Farbe und Schwierigkeitsgrad 

— Eigene X-Position 

— Eigene Y-Position 

— X-Position des Gegners 

— Y-Position des Gegners 

— Anzahl der umgefärbten Felder 

— Zeichen der Pyramide unter dem Gegner 

— Zeichen der Pyramide unter dem Gegner 

— Zeichen der Pyramide unter Q+Bert 

— Zeichen der Pyramide unter Q+Bert 

— Eigene alte X-Position 

— Eigene alte Y-Position 

— Zeichen Q+BERT (links oben) 

— Zeichen Q+BERT (rechts oben) 

— Alte X-Position des Gegners 

— Alte Y-Position des Gegners 

— Zeichen Gegner (links oben) 

— Zeichen Gegner (rechts oben) 

— Zeichen der Pyramide unter Q+BERT (nur beim Fall) 
— Zeichen der Pyramide unter Q+BERT (nur beim Fall) 
— Hilfsfarbe 

— Farbe, in die umgefärbt wird 


Variablentabelle 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
FOKE 52,24: POKE 564,24:CLR 

POKE 549,1 

PRINT" ZELRI" 

FOR I=6488 TD 648: FOKE I,B:NEXT I 

FOR I=@ TD 175 

READ A:rFOKE 6152+1,A:NEXT I 

FOR I=37& TD 45&4:POKE 15241 ‚PEEK(3277&+1) 
:NEXT:ıP=2 <129> 
FOKE 36869 , 254: U=1: TI$="QOOANRA" :RD=15:5=3 

<121> 


DLIVER FABST 
LUETTGENBERG 2 
ZF28 SALZGITTER i 
TEL. 95341/54845 


ae Bu 1 SH BE EN rn] 


S2 FOR 


S2 FLI3) 


36879,7 2BA3: 
= FE(M=12:Fl (4)=6:F2(4)=15:F105)=8B 
ıFZi5)=14 057} 
335 Fil&)=H:F2(ö3=12 x1BE> 
&2 FOKE 3455798,F1(S)#1& DR 15 “B93> 
&5 IF F=B THEN 72 
72 FOKE 199,8: 5605UB 8009 
72 FRINT"XCELRY":RD=15 
75 ZM U 5SOSUR 1099,T20n,4000 
SG FOR I=30421 TO 38925: FOHE 1,11 
@2 NEXT I 
218 FU=9rDi=B:D2=7 
228 TIE="BABRDB":C1=8:02=7 
8 FOKE 198,8: IF U=3 THEN Ci=1:02=2 
248 Af="":60T0 318 
za0 GET Ar: IF Af=""THEN S2B 
Fin XX=XıYY=Y 
AF="ZI"THEN X=X+1: Y=Y+66 
AF="A"THEN X=X-1:Y=Y-5& 
AF="C"THEN X=X-1:Y=-Yr&6 
: AF="F"THEN X=X+1:Y=Y-66& 
Z&B FOKE 198,80: FOKE 38874,128 ° 
=78 FOKE 276875,128:FPOKE 36874, @: POKE 36875, " 
2082: 
412 FDEE 76BB+HKX+YY,C1:POKE 76BB+XX+YY+1,C2 
<QSzE> 
415 FOKE FTEBB+XX+YY+Z2,ZıPOKE 7&BB+XX+YY+2T,4 
250: 
x1B845 
2149: 
329% 
LEBE 
28> 


21558 


A117: 


422 Ci=FEERK (7480+X+Y) 

421 CE=FEEK (7&BR+X+Y+1D 

424 51=15:52=1& 

425 IF Ei=1 THEN Si=i1l 

42& IF C2=2 THEN 52=12 

422 IF CiX>1 AND CIX>B THEN 79800 

449 FOKE 7580+X+Y, S1:POEE 76B9+X+Y+1,52 

445 FOEE 7&EBBHXHY+2Z,1Z:FOKE 76BB+X+Y+23,14 

2245 

SEz A=FEEK (78429+X+ AND 7 

525 IF A=2 THEN GOSUB 2800 

S2B FRINT" HOME, WHITEI"SINT(R#ZS) : "IHOME} 
"TABULTISRIGHTECTIE, 4) 

5:8 IF FU=21 AND U=1 

SQ IF U=2 AND FU=37 

360 IF U=53 AND FU=28 


22295 
Z1&61> 


378 RD=RD+1 
SsgB IF RDX21-5*2 THEN 898 
592 AD=D:SD=bD 
22 IF X>D AND 
:GOSUB San 
&i2 IF X>D AND 
:G0OSUR 5188 
628 IF X{D AND 
:59SUP 5202 
638 IF X{D AND 
:GDSUB 5300 


Y>DD THEN D=D+1:DD=DD+ö6 
Y£{DD THEN D=D+1:DD=DD-&& 
Y£DD THEN D=D-1:DD=DD-6& 


Y>DD THEN D=D-1:DD=DD+56 
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POKE 768@+AD+SD,DI1:POKE 7688+AD+SD+1,DE 


x18> 


FOKE 7688+AD+5D+22,3:POKE 7&689+AD+5D+273,4 


IF Z=S51 THEN 
D1=PEEK (768Q0+D+DD} 
D2=PEEK (7589+D+DD+1) 


<186> 
30088 


<BQ82> 
LEBTE 
x«178&> 


01=17:02=18: IF Di=1 THEN O1=21 


IF D2=2 THEN 02=22 


FOKE 7688+D+DD,D1:FODEE 7&68B+D+DD+1,02 
FOKE 7689+0D+DD+22,17:POKE 769@0+D+DD+23,2 


xB&El> 


RD=g 
SOTO 320 


1902 
1818 
1322 
1838 
1842 
1258 
1252 
1878 
1282 
1272 
1102 
1118 
1120 
113 

1148 
i150 
1148 
1178 
1182 
1172 
12282 
1598 
z222 
ZBBS 
=218 
2628 
22:0 
=B42 
2845 
2852 
Saaz 
3B8D5 
3218 
3215 
3220 
32382 


ABAB 


z242 


EDCD 


3052 


X=18: Y=9#22: D=19: DD=e15#22 

FRINT:FRINT 

PRINT" {1BSPACE>AR" 

FRINT" {1BSPACEICD" 

PRINT" {1A4SPACEIEF" 

PRINT" {9SPACEYÄAGHB" 

PRINT" {9SPFACEICDED" 

FRINT" £9SPACE3EFERF" 

PRINT" {BSFACEFAGHGHR" 

PRINT" {SSPACE}EDEDED" 

PRINT" {BSPACEIEFEFEF" 

PRINT" {75PACEFAGHSHGHB" 

FRINT" {7SFACEIECDEDEDED" 

FRINT" {7SPACEFEFEFEFEF" 

FRINT" {&SFACE FASHSHEHGHE' 

PRINT" {&SFACEICDEDEDEDED" 

PRINT" {&SSPACEYEFEFEFEFEF" 

FRINT" {5SSPACE }AGHGHSHSHEHR" 
FRINT"ISSFACEICDEDEDEDEDED" 

FRINT" ISSFACEIEFEFEFEFEFEF" 
FRINT"ISSFACEIIJIJIJIGLIIG" 

RETURN 

FOKE 36875,189 

PU=FU+1:F=F+1 

FOKE 3B400+X+Y,FZ2(57 

FOKE 394B0+X+1+Y,F215} 

FOEE IBARBB+X+Y+22,FZ(5) 

FOKE TB4B0+X+23+Y,F2(5) 

POFE 36875,8 

RETURN 

X=-18: Y=64*22: D=19:DD=18#22 

FRINT: PRINT 

FRINT" {PSPACEFABAR 

PRINT" {9SFACE}CDED 

FRINT" {9SFACE3EFERF 

PRINT" TZSPACE FABAR TZSPACE3ACHERB T2SPACE} 
207335 
PRINT" {2SFACEICDED {2SFACE HCDEDCD {ZSPACE} 
2875 
FRINT" {2SPACEFEFEF {2SFACE}FEFEFEF {2SPACE} 


EFEF 


ZB48 
3272 
ZABD 
32970 
3180 





AEHGHEASHSHGHBASHGHR 
EDEDEDEDEDCEDEDEDEDER 

FRINT" EFEFEFEFEFEFEFEFEFEF 

PRINT" IJIHSHGHEHSHEHSHSIITI 

PRINT” {4SPACE3CDECDBEDEREDEDED 

PRINT" {4SFACEIEFEFEFEFEFEFEF 

FRINT" {ASFACE) IHSHSHSHGHGHGI 

PRINT" {SSPACEICDEDEDEDEDED 

FRINT" {SSPACEIEFEFEFEFEFER 

PRINT" {SSPACE3IHSHSHSHGHGJI 

FRINT" {ASPRACEICDSCDELDEDCD 
FRINT"Z&SSPACEIEFEFEFEFEF 

PRINT" {&SFACEIIJIJIJIJII 

RETURN . 
PRINT:FRINT: X=10: Y=12#22: D=1B: DD= 6*22 < 
FRINT*" {SSPACEIABABABABABAR 
FRINT"{SSFACEICDEDEDEDEDED 


PRINT” 
FRINT" 


Listing »Q+Bert« 


ana FRINT"ISSFACEIEFEFEFEFEFEF 
3QzB FRINT" (4SPACEFAGHEHGHEHSHSHE 
4242 a Er erErEr 
SPACE}EFEFEFEFEFEFEF 
4BaZ ERINT' FACEI3ABJIJIJIJIJIJIHE 
“270 ERINT TSSPACEILD O1 SSEADE} ‚CD 
FACEIEFILZSPÄACEFER 
"SPACE IHBABBEABABABRAGI 
CEIEDEDEDEDEDEDER 
ACE} ‚EFEFSFEFEFEFEF 
ATEIIHSHGEHSHSHEHS 
CEITDEDEDEDBEGBED 
JEFEFEFEFEFEF 


Zi@ RETUR 
PRINT" {UHITE ‚HOME, 7SPACE}" 
5 FOR I=i TO Z&VALCTIE) 
P=F-2.2 


FRINT" HOME" INTIP#rZT) 
1909: NEXT 


‚„12,42,42,172,178 
128,1278,160, 16B, 168,168,170,178 
179,178,106,186 ‚?2,92,86,8& 
172,17@,171,.171,175,175,191,191 

A 85,85,35,85 ‚85,85,85,85 
== 8 


rn = ; 
‚255,270 299, 295,295, 255,2 255 : 


:7,19497,165,165,1697,1589,172,178 

ı 254,754,259,250,23 4,234, 170,178 
85,25,21,21,5,5,1,1 

es 252,252 en 192,192 


Nuoc 


SBBEBAIBSNBBES SM 


147, 149.229 ,229,233, „2 
254,254,248,242,1976, 192. 16®, 168 
149,139,165,16559,1697,41,42,42 
162, 170,106 ,96,02,80,86,8& 
12,19,11,42,175,47,191,171 
2,2,2,2,4,2,150,168 
128,128,162,169,1898,40,42,42 
FOR I=1 TO Z1-Y/Z2 
Ul=FEEK (7&68B+X+Y+1#22) 
EEK (7T&EBD+X+Y+1+1i#22) 
5 CE=PEEH (76BR+X+Y+22+1%272 
: CA=PEEH {7TEBBH+X+Y+2I+ 1822) 
ZBazZa FOKE 7T&BB+X+Y+IrZZ2,11 
= 7&BB+X+Y+1+1%22,12 
FTEBB+A+Y+rZ2HIH22,12 


bp ee pub pi fi eh du 
PucueEr 
DO ER N a 


FEBa+x+Y+l 
7&E38+X+Y+1+1*22,02 

FEBO+X+Y+224 1822,03 
FEB@+X+Y+23+1#22,04 


T 
i 


FOR I=1 TO 22 


an kam 


SPeSE FOKE 74885,78:POKE 34855,39: FORE 34865,48 


<xB87: 

2B84> 

E 35877,27:FRINT"’ZCLR,BLUE>" Dan: 

"DEE 36967,243 167: 

FRINT"IBDOWN, SFACEFIHRE PUNKTE: "; INT(P825) 
XI 

PRINT" ZZDOWN „SPACE FNOCH EIN SPIEL (J/N)" 

IrZbr 

GET Af:r IF Af=""THEN 202350 <B25> 

IF Af="N"THEN END {<1B6> 


"IF A="J"THEN CLR:GOTO 45 ZB? 


ZBZ3E 22435 


7&ER+D+DD,D1: FOKE 7&BE+D+DD+1,02 
x 

F690+D+DD+22,19: FOKE 7&BB+D+DD+23,2 
BA&: 


OD ZPARN BI2> 


Listing »Q+Bert« (Schluß) 
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Gehirntraining 
mit Supermemory 


Den Schwierigkeitsgrad dieses kniffligen 
Denkspieles können Sie selbst bestimmmen. 
Doch Vorsicht! Es ist nicht so einfach wie es aussieht. 


»Super Memory« stein Denkspiel für eine Person, die gegen 
sich selbst spielt. Aufgabe des Spielers ist es, Zahlen in einem 
3.x 3-Kästchen großen Feld so zu ändern, daß sie zum Schluß 
alle den gleichen Wert haben. Die Schwierigkeit besteht nun 
darin, daß nur bestimmte Zahlengruppen verändert werden 
können. Diese insgesamt 9 Zahlengruppen können außerdem 
nur um einen Wert erhöht werden. 

Wenn Sie das Programm starten, erscheint als erstes ein 
kleiner Vorspann mit der Anleitung zu dem Spiel. Nach dem 
Drücken einer Taste fragt Sie der Computer welche Zahl zum 
Schluß in den Kästchen stehen soll. Diese Zahl kann zwischen 
null und neun liegen. Angenommen Sie drücken nun die Zahl 
Acht (RETURN), fragt Sie der Computer als nächstes wieviele 
Schritte Sie minimal benötigen sollen, damit im Anzeigenfeld 
nur Achten stehen. Sie können nun einen bis unendlich viele 
Schritte angeben. Geben Sie nun als Beispiel eine Eins an (was 
die niedrigste Schwierigkeitsstufe bedeutet) erscheint nach 
einer ganz kurzen Denkpause des Computers das Spielfeld. 


Sie sehen nun in blauer Farbe die neun Zahlengruppen und die 
Buchstaben die ihnen zugeordnet sind. Der Buchstabe G be- 
deutet nun zum Beispiel, daß alle Zahlen in dem Feld, die dem 
Buchstaben G zugeordnet sind, um eins erhöht werden. 

Da Sie beidem MenüpunktSchritte eine Eins angegeben ha- 
ben, sind nun im Feld einige Siebener. Diese Siebener stehen 
in einem bestimmten Muster. Dieses Muster muß auch eines 
von den Blauen sein! Haben Sie dieses gefunden, drücken 
Sie die Taste die davor steht. Wenn die beiden Muster gleich 
waren, haben Sie gewonnen. Der Computer fragt Sienun noch 
ob Sie noch ein Spiel spielen wollen. Spielen Sie noch eins! 
Tippen Sie nun bei »Anzahl der Schritte« eine Zwei ein, benöti- 
gen Sie schon zwei Schritte bis alle Zahlen im Feld gleich sind. 
Wie Sie sehen wird es nun bereits schwieriger. Durch Drücken 
der F1-Taste können Sie während des Spiels ein neues begin- 
nen. Durch Drücken der F7-Taste können Sie bei einem laufen- 
den Spiel alle Schritte zurücksetzen. 

{Bernd Arnold/rg) 


Listing »Super Memory« 


SOTO 9 

2 2 2/2212 2 2 2 212 2 2 2 2 2 2 2 27272 272 

* SUPER MEM DR Y * 
* WON BE RND ARNOLD * 
* SCHU LEN BURG STR.&4 * 
* 
* 


2194> 
<117> 
x207> 
<BAB> 
“2237 
<B55> 
x129> 
12375 
x112> 
<B&2> 
<@l16> 
<B71> 


8508 NUERNBERGS SQ * 

TEL 824567 * 
ERRNERUH NEN TRITT 
ELR=:REM ALLE VARIABLEN LDESCHEN 

FOKE 53281,8:FÜOKE 33280,7 
PRINT"TELR,BROWNI" 

BOSUB 4508: REM SPRINGT ZUR EINLEITUNG 
FRINT"ELELR,BERDWNI"SELR Sas2> 
INFUT"TDOWNIBITTE DIE ENDZAÄHL EINGEBEN "3A 

ı AA=A: A=A+498 s236> 
IF A<5B THEN GOTD 17:REM ZAHL AUF KORREKTHEI 
T UEBERFRUEFEN xB5F7: 
FRINT"EDOWNIDIE ZAHL DARF NICHT GROESSER 

ALS 9 SEIN":GOTO 12 <124> 
FRINT"IDOWNIBITTE DIE ANZAHL DER SCHRITTE 

EINGEBEN "INPUT B x134> 
ADIERAHSEADI SE Al ER: ATI SA:ACHISA 
:ACDHEAR: AD SA:ACH=SA:SS-1:B=Bb+1 z212> 
GOTO ZURR: REM ZUFALLSZAHLEN ERZEUGEN <132> 
REM BILDSCHIRMGRAFIK AUFBAUEN x197> 
182 FRINT" LELR,ZDOWN,&6RIGHT ,„BDOWN, 9RIGHT „WHITE]I 

“; x<113> 
118 FRINT CHR&£ (176) +CHRE (99) +CHREF (178) +CHRE (997) 

+CHR& (1789) +CHRE (MD +CHRE (174); z1892> 
128 PRINT" TDOWN, 7LEFTI3"3:FRINT CHR& (98) +CHRE (AL 

13 I +EHRE (99) +CHRE CA CDI I +CHRE (98) 5 x244> 
128 PRINT CHRE (ACH I-+CHRF (125) 35 

» FRINT" DOWN, 7LEFTJ"3 =: PRINT CHRF{171)+CHRE (9 

23; <Q4b> 
148 FRINT CHRFC1ZFI +CHRE (99) +CHRE (12) +CHRE (97) 

+CHR& (179) 5; 2 PRINT" IDOWN, ?7LEFTI"; 223> 
152 PRINT CHRE (98) +CHRE A (4) ) +CHRE (9) HCHRE (AS 
I I +CHRE (78) +CHRE (ACH) I +CHRE (99) 5 837 > 


PruskmüNDI RAN 
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152 PRINT" DOWN, FLEFTI";:PRINT CHRF(171)+CHRE#(? 
93 +CHRE (123) +CHR#$ (99) +CHRF# (125); 235% 
178 FRINT CHR$ (99) +CHR$ (179); 
= FRINT" LDOWN,7LEFT1": PRINT CHR& (98) +CHRE& (A 
723 2059 > 
188 FRINT CHA& (989) +CHRE (A (8) ) +CHRE (98) +CHRE (A (9 
) I +CHRE (78) 5 : PRINT" LDOWN,7LEFT I": <D62> 
19@ FRINT CHR& (173) +CHR$ (99) +CHR#& (177) +CHR& (99) 
+CHR& (177) +CHR$ (99) +CHR$ (189) <204> 


280 PRINT" LBLUE, RIGHT „4DOWNIF=LUP ,RVSON,SPACE, 
DOWN, LEFT „SPACE „DOWN,LEFT,SPACE,UP,2SPACE, 
RYOFF „SRIGHT JIH=[RVSON „ 2SPACE „UF ,SPACE,DOWN, 
LEFT ‚SPACE ‚DOWN,LEFT SPACE „RVOFF „3RIGHT UP] 
G=[RVSON, ZSPACE „UP ,2LEFT,SPACE ,2DOWN,LEFT, 
SPACE „RVOFF „UP, SRIGHTI"; <@17> 


285 FRINT"T=LUP,RVSON,ZSPACE ‚DOWN, 2LEFT,SPACE, 
DOWN,LEFT „SPACE ,‚RVOFF „UP,SRIGHT2": <140> 

218 PRINT"V=[LDOWN,RVYSON,SSPACE „UP,2LEFT,SPACE, 
UP „LEFT,SPACEI" PRINT" LIBUP,2RIGHTIR=LUP, 
RYSON,ZSPACE , DOWN, 3LEFT ‚SPACE , DOWN,LEFT, 
SPACE „RVDFF „2DOWNT" “213> 


228 PRINT" L2RIGHT IC=LDOWN, RVYSON,ZSPACE,ZLEFT,UP, 
SPACE „UP ,LEFT,SPACE „RVOFF „SUP „27RIGHTIY=LUP, 
RVSON , ZSPACE ,DOWN,LEFT,SPACE ‚DOWN,LEFT,SPACE, 
RVOFF „ZDOWN ,2LEFTJ"; <079> 

238 PRINT" LZLEFTIB=LUP,ZRIGHT,RVSON, SPACE ,DORN, 
LEFT,SPACE ‚DOWN, SLEFT ,3SPACEI" <148> 

242 RETURN <126> 

250 REM RETTET NN TEN <159> 

1089 PRINT" CHOMEI":S=S+1:REM S=SCHRITTE <a07> 

1218 PRINT" LBROWN,SPACEIBITTE DAS FELD EINGEBEN, 

DAS SIE VER-LISPACEJAENDERN WOLLEN" <220> 

1815 PRINT" RIGHT ,2DOWNISCHRITTE: "S <B09> 

101& PRINT TAB(18) " LUPIENDZAHL LAUTET <245> 

1817 PRINT" LDOWN,RIGHTIFI=NEUES SPIEL" 
:PRINT" F7=ALLE SCHRITTE ZURUECK" 

1222 GET At:REM TASTATURABFRAGE 


"AR 


<B54> 
xB4&> 
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"[F73" = F7 SB46> 
x1759> 
<19B> 
<214> 


Af="LF71'THEN 41BQ:REM 
AF="R"THEN 1140 
At="T"THEN 1158 
At="Y"THEN 1160 
At="F"THEN 1178 
At="G"THEN 1188 
At="H"THEN 1198 
At="C"THEN 1200 
AF="V"THEN 1218 
1122 AZ="B"THEN 1228 x248> 
1121 AF="L[FLI"THEN 13:REM "E[F12" = Fl <B33> 
1122 FOR T=1 TOD F:IF A(TI=A THEN X=X+1l 

ıREM UEBERFRUEFEN OB ALLE ZAHLEN GLEICH SIND 
“225> 


1225 
1938 
1950 
1842 
1278 
1282 
12978 
1102 
1118 


Listing <218> 
»Super Memory« .>39> 
<227> 
<au1> 


1123 NEXT T <Böl> 

1124 IF X=9? THEN SQBR: REM WENN JA DANN GRADULA 
TIDN . x135> 

1125 X=2 <163> 

1122 GOTD 1228 <1B6> 

1135 REM R-ZAHLEN UM 1 ERHDEHEN <100> 

1142 ALLA HLEATDI FA HL EACHI SA CHI +1 
:AtA)=A{A)+1:ALI=SACTIHIL 

1141 FOR T=1 TO 9:IF ACTI=58 THEN A{T)=48 
REM WENN ZAHL GROESSER ALS 9 DANN AUF 

xB979> 

1142 NEXT T:G0OSUB 1209:60T0 1200 

1143 REM T-ZAHLEN UM 1 ERHDEHEN 

1150 ACDSACDHLEA DIA H LEAD AD +1. 
:AID=ALSI+LIACBISALBI+I 

1151 FOR T=1 TOD 9:1IF ATI=58 THEN A(TI=48 

1152 NEXT T:GDSUB 109:50T0 1000 

1153 REM Y-ZAHLEN UM 1 ERHOEHEN 

11652 AtD=SAID+HL:EATISADI HI ACH SA ZI HI 
AI SALBEI HLEALMNSAINI HL 

1161 FOR T=1 TO 9:IF ATI=58 THEN AITI=48 

11&2 NEXT T:GOSUR 129:60T0 1088 

1163 REM F-ZAHLEN UM 1 ERHOEHEN 


<215> 


1172 AtDI=ACDI+LEACH SAH) HLEALDISAISI HL 


:Atö}=ALG)I+LEALTISAITI HI 

1171 FOR T=1 TOD RIF AITM=5B THEN AITI=48 

1172 NEXT T:GOSUB 108:50T0 1822 

1172 REM S-IAHLEN UM 1 ERHDEHEN 

1189 ADI=SALZI+LEALI) SAND HLEADISADI HL 
:AtA)=ABSI HL: A(M=ALBI +1 

1181 FOR T=1 TO 9: IF AtT)=58 THEN AtT)3=48 

1182 NEXT T:GOSUR 190:60T0 1000 

1183 REM H-ZAHLEN UM 1 ERHOEHEN 

11979 ALDSACHHF+LEACAI FACH) HLEAIDSA(TI HL 
:ALtEI=AlSs) +1EALM SAH 

1191 FOR T=1 TO ?:IF ACTI=58 THEN ATI=48 

1172 NEXT T:GDSUB 199:50T0 1228 

1193 REM C-ZAHLEN UM 1 ERHOEHEN 

1229 ALDI=ACHI+LEACAH=SALHIH+LEALTI=ACTIHI 
TAI SALBI LEAD ALM HI 

1281 FOR T=1 TO 9: IF AtT)I=58 THEN ATI=48 

1282 NEXT T:GOSUR 182: 5070 1200 

1283 REM V-ZAHLEN UM 1 ERHDEHEN 

1210 ADISADIHLEALDISRA SI HLEACTDI SAD HI 
BALDAALBIHLEA(MSATNIHI 

1211 FOR T=1 TO 9:IF ALTMD=SB THEN ACTI=48 

1212 NEXT T:GDSUB 188:60T0 1888 

12153 REM B-ZAHLEN UM 1 ERHOEHEN 

1220 ALDI=SAlSIHLEACHI SAG) HL: ATI SA(TDI + 
AIDA HLEALNM SAN HI 

1221 FOR T=1 TO 9:1IF A(T)=58 THEN A{T)=48 

1222 NEXT T:G605SUR 199:60T0 1202 
:REM ZAHLEN IN GRAFIK ERNEUERN 

x182> 

1223 REMIS ER <B70> 

1224 REM ZUFALLSZAHLEN ERZEUGEN 163: 

z2a28 FRINT"LELR,HOME,DOWN,7RIGHTIEINEN MOMENT 
BITTE!" xB14: 

z2aB1 Z=INT(9#RND(I)) +1: BR=BB+1 <182> 

=@282 IF BE=B THEN 4202: REM KONTROLLE OR GENUG Z 
UFALLSZAHLEN ERZEUGT SIND “BOB: 

2203 GDTO 2812 ıB38> 

2818 ON Z GOTO' 2928,2030,2042,2850,2060,2070, 
2080 ,2079,2108 2180> 

2022 ACHI=ALLDI-LEACDISATDHI-L:EA(HDI SATZ — 1 
At4)=AlA)-1EACTTI SAT —L 

2821 FOR T=1 TO F:zIF AT)=47 THEN ATI=57 

2222 NEXT T:60T0 ZaB1 

2O23 REM SHERREIETNIENENRHEHE RT 


20797: 
244: 
<073> 
xıQ5> 


22 Naa 


z2B6> - 


2032 Alt)=sAtı)-L2ADeADI-1:AHISATEI- 1 
:A(H)=SALTI-I1:AtBISATOI-1 
2831 FOR T=1 TO 9:1IF ACTI=47 THEN ACTI=57 
2032 NEXT T:GOTO 2901 
ZO3SE REM EEINEEENEEHHETETHEREN NR 
2848 Atı)=Atl)-L:ADISALDI-L:ACHISA(HI-1 
eAlbI=AtH)-1:AM=ATN-1 
2841 FOR T=1 TO 9:IF AtT)=47 THEN AITI=57 
2842 NEXT T:G0OTD 2001 
ZB4: REM RBRRBERBAHSHHISHIHHIIHIHHISIHHHIHE IR 
2058 Ati)=sAti)-1:At4I SAL) -1:AUDISACHTI-I 
:At&SI=AlS)-1:AINDSAM-1 
2851 FOR T=1 TO F:IF ACT)=47 THEN A(TI=57 
2852 NEXT T:G0OTD Zu21 
ZBIT REM RRRERRENNAEKKÄNNRNTRIN RUN NNNINNR 
BAR ALDISEALDI-1:A(A)=AA)-1:ASI=AH-1 
:Atö)=A{d)-1:AtBI=SAlOI-1 
2861 FOR T=1 TO 9:IF A(T)=47 THEN AITM=37 
ZB52 NEXT T:GOTD Z001 
ZU63 REM OHREN RN HN HH NR HR 
2072 ACH=-ACH-1:ACHI SAH -1:EATDFAHD-L 
At) SACHI-1:EAIDFATNI -I 
2071 FOR T=1 TO 9: IF AtTI=47 THEN AtT)=57 
2072 NEXT T:60T0 28081 
2O73 REM HERUNTER HN H HERR 
2888 Al1)=Atl)-1:Atl4)=Al4-1:AISEAITDI-1 
BAtm=SAlBI-1:AIN-ATN-I 
2881 FOR T=1 TO 9:IF ATI=47 THEN AtT)=37 
2887 NEXT T:60OTO 2201 
2BE3 REM HRRBBRRBIHBIRIIBIHIHIAIHHIHISIHAIIHEIHE IE HER 
20798 ALDISALTMI-1:ACHSALTI-1:AI SAU 
ALDI =ACBI-1:ACNSAIN-1 
2871 FOR T=1 TO 9:1IF ATI=47 THEN A(TI=57 
2872 NEXT T:GOTO ZU81 
ZOIE REM RAR RENTEN EHRT HN 
2129 AMDSADTI-IEAtSISACEI -1: AMD SAT -1 
TALBI=ALBI-1:ALPeAN-i1 
2101 FOR T=1 TO 9:IF ATI=47 THEN ACT)=57 
Z1BD2 NEXT T:GOTO 2081 
2183 REM SPIEL GEWONNEN : =191> 
Za29 FRINT"LELRT" xB51> 
z@1@ PRINT" GRADULIERE SIE HABEN DAS PROBLEM 
IN"S: PRINT"LDOWN, SPACE ISCHRITTEN BELDEST" 
<143> 
S5Bz2 IF S<=BRB-1i THEN 3248 x232> 
2038 GOTDO 3240 <B51> 
3942 PRINT" CDOWN,SPACEIDAS IST DIE GERINGSTE 
ANZAHL VON" 2047 
3852 FRINT"TDOWN,SPACEISCHRITTEN DIE MOEGLICH 
WAR!" . x1B8> 
SsR6&B PRINT" T3ZDOWN,SPACEIWOLLEN SIE NOCH EIN 
SPIEL"; 
35878 INPUT AtsIF At="J"THEN GOTO 13 
3888 FRINT"LCLR,DOWN, RIGHT ISCHADE" = END 
aa08B FOR T=1 TD 9:BtTI=A(TM:NEXT T 
4318 GOSUB 199:60T0 1900 
4122 FOR T=1 TO 9:ACTI=BETI:NEXT T 
4118 S=-1:G60SUB 1299:60T0 1298 
4588 REM TITELBILD ERZEUGEN 20545 
4518 PRINT"TELR,11DOWN,12ZRISHTI"; £113> 
4528 PRINT"BERNDL2SPACE JARNOLDLEDOWN, 12LEFT] 
PRESENTIERT" x148> 
45:22 FOR T=9 TOD 24DBSNEXT T 244} 
4548 FRINT"LELR,3DOWN,RIGHT ,FDOWN, 1ZRISHT 1"; 
z1897> 
PFRINT"SUFER MEMORY" ZB28> 
FOR T=B TO Z4BB:NEXT T <B18> 
FRINT" TELR , DOWN „RIGHT 164 °ERLZBSPACE 164 ER" 
A217> 
4588 PRINT" LIBDOWN, 14RIGHTI"5 x077> 
A572 PRINT"FRODUZIERTLDOWN, 1BLEFT 122.18. 1984" 
“BDZB> 
4689 PRINT" LFDOWN,„RIGHT 164 ’ERLZBSFACE 1644 ER" 
236: 
FOR T=2 TO Z4B08:NEXT T Bar: 
FRINT’ICLRI" <142> 
FRINT"DIES IST EIN DENKSPIEL FUER JEDES 
ALTER." "s21ö> 
4648 FRINT" [DOWN,SPACEISINN DES SPIELES IST 
ES, ZAHLEN INIDOWN,sSPACE] 
EINEM 7*#5 KAESTCHEN "3 
4658 PRINT"GROSSEN FELD SO ZULDOWN,ZSPACE]I 
MANIPUL TIEREN DASS ZUM SCHLUSS ALLE"; 


<D93> 
2543 
<B83> 
<115> 


x187> 
<aRB> 
<2973> 
x125> 


z122> 
219: 
z1B4> 
2136: 


x136> 
<229> 
x114> 
x146> 


<158B> 
839: 
“1243 
<156> 


<132> 
<Q49> 
x134> 
<186> 


x178> 
<B597> 
<144> 
z176> 


x192> 
xB&69> 
<x154> 
SCHLUSSGRAFIK 


z125> 
x241> 
<a20> 
z013> 
x291> 
<114> 
<219> 


4558 
4562 
4578 


4510 
4628 
4652 


x022> 


2293 
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4668 PRINT" DENLSPACE ,DOWN,SPACEIGLEICHEN WERT 
HABEN. EDOWNI" <B41> 
4678 PRINT" DURCH DRUECKEN SPEZIELLER TASTEN 
DIE LDOWN, 4SPACE ISPAETER ANGEZEIGT WERDEN,"; 
<131> 
4688 PRINT" KOENNEN BE- [DOWN ,3SPACE ISTIMMTE 
ZAHLEN UM EINS ERHDEHT WERDEN. LDDWNI" <211> 
469@ PRINT" WELCHE ZAHLEN DAS SIND KOENNEN SIE 
ANLZSPACE , DOWN,SPACEIDEN MUSTERN ERKENNEN. " 
. £217> 
4700 PRINT" L2DOWN,4RIGHTIWEITER MIT RETURN" 
<123> 
4718 GET A$:IF A$<>CHR$(13)THEN 4710 <251> 
4728 PRINT" LCLR,DOWNI" <203> 
4738 PRINT" SIE KOENNEN WAEHLEN WELCHE ZAHL 
ZUMESPACE ‚DOWN ,4SPACEISCHLUSS EINMAL IM 
“; <252> 
4748 PRINT"KAESTECHEN STEHENLDOWN ,64SPACE JSOLL. 
LDOWNI" <290> 
4750 PRINT" AUSERDEM KGENNEN SIE WAEHLEN WIEVIE 
LELSPACE ‚DOWN, 2SPACEISCHRITTE SIE MINDESTENS 
”; <173> 
4768 PRINT"DAZU BENDETI-LDOWN,3SPACEIBEN." <@B7> 
4770 FRINT" LSDOWN,SPACEIPS: WENN IHNEN DAS. SPIE 
L SCHWER ER-ISSPACEISCHEINEN SOLLTE, "3 <183> 
4780 PRINT"MACHT NICHTS ES ISTL4SPACEINDCH KEIN 
MEISTER VOM HIMMEL GEFALLEN!" <206> 
4798 PRINT" LZDOWN,SPACEIZUM SPIELEN BITTE TASTE 
DRUECKEN" <029> 
4800 GET A$:IF A$=""THEN 4800 <197> 
481B RETURN <1iB6> 


Listing »Super Memory« (Schluß) 


Programmbeschreibung 
- Variablen — Bildschirm löschen, Cursorfarbe auf 

Braun, Bildschirmrahmen auf Gelb, Hintergrund- 
farbe auf Orange 
Nach Endzahl und Schrittzahl fragen, Variablen 
für Anzeigefeld definieren, Sprung zu Zufallszah- 
len erzeugen j 

100—240 Bildschirm löschen, Anzeigefeld aufbauen (dies 
wird auch als Unterprogramm benützt) 

1000—1017 Schritte — Endzahl anzeigen, F-Tasten erklären 

1020—1121 Tastaturabfrage 

1122-1130 . Prüfen ob alle Zahlen im Feld gleich sind, wenn 
»ja« dann Spiel zu Ende, wenn »nein« erneut 
Tastaturabfrage 

1135—1222 Unterprogramme: Die verschiedenen Zahlen wer- 
den nach Tastendruck um eins erhöht, Sprung 
danach zu »Anzeigefeld aufbauen«, damit dort die 
Zahlen erneuert werden, Sprung danach zur 
Tastaturabfrage 

1224—2010 Zufallszahlen erzeugen, bestimmen welche Zu- 
fallszahlen erzeugt werden, wieviele; sind genug 
erzeugt, dann Sprung zum Unterprogramm, das 
sich die Zahlen merkt, damit sie nach Drücken 
der F7-Taste wieder erscheinen 

2020—2102 Unterprogramme für die einzelnen Zufaliszahlen, 
überprüfen ob einzelne Zahlen größer als neun 
sind, wenn ja, dann werden daraus Nuller 

2103—3080 Spiel gewonnen, Schlußgrafik, Anzahl der Schrit- 
te ausgeben, fragen ob. noch ein Spiel, wenn 
nein, Ende 

4000-4010 Unterprogramm Zufallszahlen merken, Sprung zu 
»Anzeigefeld aufbauen, Sprung zu Tastaturab- 
frage« j 

4100-4110 Unterprogramm »Schritte« zurücksetzen, Sprung 
zu »Anzeigefeld aufbauen«, Sprung zu »Tastatur- 
abfrage« 

4500—4610 Titelbild erzeugen, auf Copyright hinweisen 

4620—4710 Erste Anleitungsseite erzeugen, nach Drücken 
von RETURN fortfahren . 

4720-4810 Zweite Anleitungsseite erzeugen, nach Tasten- 
druck Spiel beginnen 
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Wir suchen 


Anwendung des Mo- 
nats, was ist das? Nun, Sie 
jstzlei=1sK=-1te[2 du @fe)sskustoroleng:, 
64 oder einen VC 20 und 
versuchen diesen irgend- 
wie sinnvoll einzusetzen. 
Unter einer sinnvollen 
Anwendung versteht die 
64’er Redaktion alles, was 
beispielsweise Program- 
me im häuslichen Bereich 
bewirken. Es kann sıch 
dabei um die Berech- 
nung der Benzinkosten 
für Ihren Wagen handeln, 
umein eigenes Textverar- 
je/-2labisterje)geisic-hustge i-h 
hen, sich um die Verwal- 
tung Ihrer Tiefkühltruhe 
drehen oder ein ausge- 
klügeltes Telefon- und 
Adreßregister sein. 

Setzen Sie Ihren VC 
20/C 64 mehr oder weni 
ger beruflich ein? Auch, 
oder vor allem, das ist ei- 
ne sinnvolle Anwendung. 
STewillsidjewellzwire)siekmhistel 
EI-WElictiergstolstaibistemmlshge: 
Lagerverwaltung, die Be- 
stellungen auf einem 

Commodore-Heimcom- 
jojbiis@lehltge/staisiog:jersyalsyIke, 
Anwendungen wie die 
Berechnung der Statik 
von selbstgezimmerten 
Regalen, von Klımadia- 
grammen oder Vokabel- 
I-sslordeleig-Vsnistecnluggelche 
Sielstsilkssitsaslejsimgelei-iggente: 
FAlstsleisiczlejstsibistemeisim 6ren 
diten sind ebenfalls The- 
men, die mehr als konkur- 
renzfähig sind. 

Uns ist die Anwendung 
des Monats 





wert. 

Schreiben Sie uns, was 
Sie mit Ihrem Computer 
machen: 

Redaktion 64er, Aktion: 
Anwendung des Monats, 
Hans-Pinsel-Str. 2, 8013 

Haar bei München. 
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Cursorsteuerung leicht gemacht 


Bei professionellen Programmen der PC-Klasse kann der Cursor meist über 
Eingabegeräte wie die Maus positioniert werden. Daß es auch recht gut 
mit dem Joystick und dem C 64 funktioniert, beweist dieses Programm. 


Haben Sie den kurzen MSE-Lader eingetippt und gestartet, 
können Sie den Cursor mit einem Joystick in Port 2 steuern. 
Das Steuerprogramm befindet sich ab Adresse $C000 bis 
$C0686 im Speicher. Die ersten 15 Bytes nimmt eine Initialisie- 
rungsroutine in Anspruch, die den Interruptvektor auf $CO0OF 
legt und das Steuerprogramm in den Kernalinterrupt einbindet. 
Die Routine wird mit SYS 49152 aufgerufen. Das Programm 
benutzt Speicherzelle $02 als Zähiregister, da der Joystick nur 
bei jedem sechsten Interrupt abgefragt wird. In Zeile 300 des 
Assemblerlistings wird die Zählvariable um 1 erniedrigt. Ist die 
Variable O, wird sie auf 6 gesetzt und in die Steuerungsroutine 
verzweigt. Ab Zeile 360 wird der Tastaturpuffer auf freien Platz 
überprüft. Sollte der Puffer voll sein, wird sofort in die Interrupt- 
routine des Betriebssystems ($EA31) gesprungen. In Zeile 
400 wird der Joystick abgefragt und das entsprechende Cur- 
sorsteuerzeichen in den Akku geladen. Ab 800 wird das Zei- 
chen in den Tastaturpuffer geschrieben und der Pufferzeiger 
erhöht. 








Listing zu »Cursorsteuerung leicht gemacht«. Das Pro- 
gramm muß mit dem MSE auf Seite 68 eingegeben 
werden. 
PROGRAMM =: CURSOR CORD CBöh 


coan 
cas 
coi® 
c218 
C220 
CO2B 
case 
Cas8 
caan 
Ca4B 
ca5® 
case 
CBs0 


un na BE an HE OU N HE TE HE A mE mn 
nm 
S 
2» 
D 
8 
=] 
je) 
N) 
rJ 
Di] 
S 
N 
m 
So 
8 
=} 
[| 
ig] 


{PSiepen/hm) 


Assemblerprogramm der Cursorsteuerung 


REIHE 
REM#* EURSOR STEUEREUNG 
REM* 
REM* FETER SIEPEN * 
REM# * 
REM* VON-STEFHAN-STR. 6 * 
REM#* * 
* 
* 
%* 
+ 


= JMP JA WEITER MIT INTERUPT 
WEITER LDA JOY ;WENN JDY NICHT 
H AND #1 ıNACH OBEN 
‚CMP #8 sWEITER 
BNE NOBEN 
LDA #"D" ;WENN JA STEUERZEICHEN 
: JSR AUSG ; AUSGEBEN 
NOBEN LDA JDY i . 
. AND #2 
F CMP #9 
s BNE NUNTEN 
93: LDA #8" 
ing SYSY7#429& 2 JSR AUSG 
118 .OPT F,00 NUNTEN LDA JDY 
111 : bi AND #4 
112 : Ei CMP #9 
113: Ei BNE NLINKS 
114 : b; LDA #0" 
120 *= +CHaB Ei JSR AUSG 
125 : NLINKS LDA JOY 
130 : ı AND #8 
148 : : CMP #0 


#* 
* 


REM* 4288 OBERHAUSEN 1 

REM# 

REM* TELEFON : (B7B8) /26555 
REMIS NR 


158 TEST 322 ; ZAEHLVARIABLE a BNE NRECHTS 
168 JOY 36328 ‚PORT #2 b LDA 2" 3" 


178 AZITP = $C& ;ANZAHL ZEICHEN IM PUFFER N JSR AUSG 

174 i: NRECHTS JMP $EAZ1 

175 : ı 

180 LDA #<BESINN; INTERUPTVEKTOR 

185 STA #314 

198 LDA #>BEGINN;AUF NEUE 

195 STA #315 ;ADBRESSE SETZEN 

2a® LDA #406 ; ZAEHLVARIABLE 2 

295 STA TEST ;HOCHSETZEN ;X-RES FUER 
zıa RTS ; ZURUECK ZU BASIC . : ; INDIZIERTE 
215: : : ADDRESSIERUNG 
220 : : ; LADEN 

225 : 2 IN TASTPUFFER 
z20 BEGINN TEST ı ; SCHREIBEN 

320 : START ;GENUS LEER IRR : sANZAHL ZEICHEN 
330 : $EAS1  3NEIN WEITER MIT IRR 2 IM TASTPUFFER 
348 START 3:06 ; ZAEHLVARIABLE HOCHSETZEN : ;ERHOEHEN 

359 : TEST ı 

368 : AZITP  ;TASTATURFUFFER 

270 : 4528 ;VOLL 

388 : WEITER 
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Basic-Zeilen 
genau betrachtet 


Wenn Sie eine Basic-Zeile eingeben 
und anschließend RETURN drücken, 
legt der Interpreter die Zeile im Spei- 
cher ab. Will man Basic-Zeilen durch 
ein Maschinenprogramm erzeugen 
oder in einem Basic-Programm nach 
bestimmten Befehlen suchen, muß 
man wissen, wie und wo Basic-Zeilen 
gespeichert sind. 


In den Speicherzellen 43/44 steht die Anfangsadresse des 
Basic-Speichers. Die Adresse, bei der Basic beginnt, erfahren 
Sie durch die Abfrage PRINT PEEK(43)+256 * PEEK(44). Sie 
erhalten den Wert 2049. Das ist die Adresse, ab der die erste 
Basic-Zeile vom Interpreter gespeichert wird. Wie Basic-Zeilen 
im Speicher vorliegen, sollam folgenden Beispielprogramm er- 
läutert werden. 


10 Print "PROBE” 


300 REMC -64 
1200 A$="A=A" 
50000 END 


Bild 1 und 2 zeigen, wie der Interpreter diese vier Basic- 
Zeilen ab der Adresse 2049 speichert. Die Werte in Klammern 
sind die Startadressen der einzelnen Basic-Zeilen und dienen 
nur dem besseren Überblick. Alle Werte sind dezimal und 
hexadezimal angegeben. 

Die ersten beiden Bytes jeder Zeile heißen Linkpointer oder 
einfach Verbindungszeiger, manche sprechen auch von 
Koppeladressen. Der Wert dieser beiden Bytes entspricht 
immer der Startadresse der nächsten Zeile. Das erste Byte ist 
das Low- und das zweite das High-Byte der Adresse. In Bild 1 
ergeben die ersten 2 Byte der ersten Zeile den Wert 









Link- Zeilen- 


pointer nummer 


(0801) OF 08 0A 00 
(2049) 15 8 10 0 


Basic-Text 


9920 22 50 52 4F 42 45 22 00 
15332 34 80 82 7966 6934 0 


Print PROBE 


8F 20 43 20 2D 20 36 34 00 
14332 67 32 45 32 5452 0 


REM C _ 6 4 


4124 B2 22 41 3D 41 22 00 
65 36 178 34 65 61 65 34 0 


A$=- "A = 


8000 
128 0 


END 





































{080F) 10 08 2C 
(2063) .28 8 44 1 




























(081C) 29 08 BO 04 
(2076) 41 8 ı6 4 




























(0829) 2F 08 50 03 
(2089) 47 8 80 195 




















(082F) 
(2095) 0 0 


Bild 1. So legt der Interpreter Basic-Zeilen im Speicher ab. 
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15+8x256=2063, also die Adresse, bei der die zweite Zeile 
beginnt. Der Linkpointer der vierten Zeile (47+8x256) zeigt 
auf die Speicherstelle 2095. Die beiden Null-Codes in 2095 
und 2096 (der Linkpointer der fünften Zeile) signalisieren dem 
Interpreter das Programmende. 

Byte 3 und 4 jeder Zeile ergeben die Zeilennummer der je- 
weiligen Basic-Zeile. In der ersten Zeile ergeben diese 2 Byte 
10 +0x256 = 10. 

Im Beispielprogramm steht, nach dem Linkpointer und der 
Zeilennummer, als fünftes Byte, das Token für PRINT (99). Um 
Speicherplatz zu sparen und eine schnelle Programm- 
abarbeitung zu erzielen, werden alle Basic-Befehle (PRINT, 
REM, END...) in nur 1 Byte übersetzt. Ein 1-Byte-Befehlswort 
heißt Token. Der Interpreter holt sich die Information, welches 
Token einem bestimmten Befehlswort entspricht, aus einer 
Zuordnungstabelle im ROM. Die Tabelle beginnt ab Adresse 
41118 ($A090). Bild 3 zeigt einen Überblick über alle Basic- 
Befehle und deren Token. Die Leerstelle nach der Zeilennum- 
mer, die nach dem LIST-Befehl am Bildschirm zu sehen ist, 
wird nicht berücksichtigt. Die Leerstelle zwischen PRINT und 
dem Anführungszeichen steht als ASCII-Code 32 im sechsten 
Byte. Auf die gleiche Weise werden das Anführungszeichen, 
das Wort PROBE und das Schlußzeichen im ASCII-Code ge- 
speichert. Das Beispiel zeigt, daß der Interpreter alle Zeichen, 
außer Befehlswörtern, im ASCII-Code speichert. Das gilt auch 
für Befehlswörter in Anführungszeichen ("PRINT”). Diese Un- 
terscheidung können Sie in der dritten Zeile deutlich erken- 
nen. Das erste Gleichheitszeichen stuft der Interpreter als 
Operator ein (Token 178, $B2), das Gleichheitszeichen in An- 
führungsstrichen als ASCI-Code 61 ($3D). Eine Aufstellung 
der ASCIl-Codes finden Sie Ihrem Handbuch zum C 64 auf 
Seite 135. . 

Das Ende jeder Programmzeile ist durch eine Null markiert. 
Der Interpreter erkennt daran das Zeilenende und nimmt sich 
die nächste Zeile vor. Enthalten die beiden Bytes für den Link- 
pointer Null-Codes, ist für den Interpreter das Programm zu 
Ende. Im Beispiel sind es die Adressen 2095 und 2096 
($082F, $0830). 





Bild 2. Das kleine Basic-Programm mit SMON betrachtet. 
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Mehr Verständnis für den 
NEW-Befehl 


Im Handbuch steht, daß NEW das Programm im Speicher 
löscht. Das ist nur bedingtrichtig, denn der NEW-Befehl löscht 
nicht das ganze Programm, sondern schreibt nur zwei Null- 
Codes in die Speicherstellen 2049 ($801) und 2050 ($802). 





Sie können das mit einem Monitor, zum Beispiel dem SMON, 


überprüfen. Außerdem werden die Zeiger für Variablenanfang, 
Feldanfang und Feldende auf die Adresse 2051 gesetzt. 

Zum Beweis dieser Aussage sollten Sie einmal das Beispiel- 
programm eintippen und die folgenden Direktbefehle einge- 
ben. 


NEW 

POKE 2049,15 
POKE 2050,8 
POKE 45,49 
POKE 46,8 
POKE 47,49 
POKE 48, 8 
POKE 49,49 
POKE 50,8 
LIST 


Linkpointer 


Variablen-Änfang 


Feld-Anfang 


Feld-Ende 


Die Werte für den ersten Linkpointer und die Variablenzei- 
ger werden mit diesen acht POKE-Befehlen wieder 
hergestellt. Sie gelten nur für dieses Beispielprogramm. 
Geben Sie nach NEW eine neue Basic-Zeile ein, dann kann 
das gelöschte Programm nicht mehr gerettet werden. 





Wenn Sie nun am Ende dieses Satzes drei Nullen finden, 
dann wissen Sie . 
a) der Satz ist zu Ende und i nu 
b) der Artikel ist zu Ende. ; - 

000 LA 
{J.Effenberg/hm) 


Befehl Token 


DEZ HEX 


Befehl Befehl Token 


DEZ HEX 


Token 
DEZ HEX 


END 128 
FOR 129 
130 CLR 
131 CMD 
132 SYS 
133 OPEN 
134 CLOSE 
135 GET 
136 NEW 
TAB 
TO 
FN 
SPC 
THEN 
NOT 
STEP 
+ 


CONT 
LIST 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 


oz 
[w] 


150 


152 


ANVOBrT * 


Bild 3. Basic-Befehie und deren Token 





Als die Bilder 


laufen lernten ... 


Zaubern Sie Bewegung auf Ihren Bild- 
schirm! Mit diesem Programm können 
Sie bequem Blockgrafik und Textin frei 
definierbaren Bildschirmbereichen 
scrollen. Und das in vier Richtungen. 


Mit einem einzigen SYS-Befehl wird sowohl der Zeichen- als 
auch der Farbcode gescrolit. Dabei können Sie die Größe und 
Lage des Scrollbereiches frei wählen. Wenn Zeichen aus ei- 
nem Bereich hinausgeschoben werden, tauchen Sie an der 
gegenüberliegenden Seite wieder auf. 

MitSYS 50550 ,r,za,ze,s,| wird das Maschinenprogramm auf- 
gerufen. Dabei werden Parameter für Richtung (r), Zeilenan- 


Richtung 
Zeilenanfang 
Zeilenende 


L,R,H,T 

1..25 

1... 25, za<ze 

1... 40 
1..40s+1<41 
SYS50550,r,za,ze;s,l 


Spalte 
Zeilenlänge 
Syntax 


Bild 1. Die Parametergrenzen 


an kam 





fang (za), Zeilenende (ze), Spalte (s) und Zeilenlänge (I) über- 
geben. Die Parameter müssen innerhalb der Grenzen von Bild 
1 liegen. Angaben außerhalb dieser Grenzen fängt das Pro- 
gramm ab und gibt die entsprechende Fehlermeldung aus. 

Listing 2 i$t ein Demo-Programm, das Ihnen die verblüf- 
fende Wirkung des Scrollens in vier Richtungen zeigt. 

u (J. Effenberg/hm) 

[575 CB1S 


PROGRAMM = ROLLING 


34 


isting 1. »Als die Bilder laufen lernten...«. Das Programm 
uß mit dem MSE auf Seite 68 eingegeben werden 
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EC7BE 
C7CA 
C7CE 
C7/D& 
t7DE 
C7ES 
D7EE 
L7/Fä 
E7FE 
CB06& 
CEBE 


28 


Listing 1. »Als die Bilder laufen lernten ...«. Das Programm 
muß mit dem MSE eingegeben werden (Schluß). 


1 FOKE 53281,9:POKE 53288,@:PRINT" {BREEN?" <991> 
10 GOSUB 1928 <Q8B8> 
48 FOR I=1 TD 1090020 <154> 
58 SYS 58559,H,2,9,1,18 <240> 
68 SYS 52559,T,17,24,1,18 <185> 
62 SYS 58550,1,17,24,11,182 <158> 
63 SYS 58550,H,19,24,28,5 <193> 
65 SYS 59550,1L,12,14,5,38 <102> 
82 SYS 50550,R,16,24,29,18 <188> 
90 SYS 59558@,1L,1,8,16,24 <BaSs> 
1982 A=A+i: IF A/Z=INT(A/ZITHEN PRINT" {UP} 
"TAB (15) "ATTENTION" <113> 
118 IF A/S=INT(A/3)THEN PRINT" £UP}"TAB(15)" 
{RVSONFATTENTION" <B7B> 
9797 NEXT <188> 
1828 PRINT" {CLR}Y" <891> 
1801 PRINT" {4SPACE3NN{Z2SPACE?" <108> 
1818 PRINT" {3SPACE}N{2SPACEIN{SSPACE ,RED,7SPACE, 
RVSON}S£IRVOFFIWTASPACE „BREEN}" <168> 
1828 PRINT" {2SPACE}N{4SPACEIHTASPACE,RED,&6SPACE, 
RYSONI£SPACE „RVOFF3HWIASPACE „GREEN}" <178> 
1825 PRINT" N{ASPACEIN{SSPACE „RED,SSPACE „RVSON} 
£12SPALE „RVOFFILFFRFRRÄGREEN}" <234> 
1826 PRINT" AtASPACEINTSSPACE „RED,SSPACEIE 
{RVSON , 2SPACE „RVOFF EYYYYYV{SREEN}" <B84> 
1038 PRINT" {2SPACEIA{4SPACEIN{ASPACE ,RED,&SPACE} 
FIRVSON, SPACE „RVOFF 3W{6SPACE „GREEN}" {243> 
1248 PRINT" {3SPACE}N{ZSPACE}H{SSPACE ‚RED, 7SPACE} 
FH{ASPACE „GREEN}" <889> 
1958 PRINT" {4SPACEIHNTZFSPACE}" <159> 
1B&B PRINT <193> 
107@ PRINT" {RVSON,S39SPACE}" <033> 
1898 PRINT" {ASPACE,RVSON}...5 Y STE M{3SPACE} 
RUNNING" <197> 
1108 PRINT" {RVSON,SFSPACE}" <B63> 
1178 PRINT <B47> 
1188 PRINT <857> 
2008 PRINT"TTTTTTTITTFILBSPACEIABLFSPACEI" <195> 
2085 PRINT" {SREY 330000000008 {19SPACE}SB{BSPACE} 
" <024> 
2018 PRINT" {GREY 230000000008 {ZOSPACE }AR17SPACE} 
“ <B26> 
2815 PRINT" (PURPLEITTODTDOTTKLZ1SPACEIBBTASPACE) 
on <B35> 
2828 PRINT" {GREY 337000000008 {5SPACE)POKE DOWN 
{BSPACEIBB{SSPACE}" <142> 
2025 FRINT" {GREY 2307000000008 {23SPACE +88 {4SPACE} 
D <B41> 
2038 PRINT" {YELLOWIDODDTDETEK{245PACEIABLSSPACEI 
“ <052> 
2835 PRINT" {9SPACEITIZSSPACEIBATZSPACEI"  <W26> 
20498 PRINT" {9SPACEIKTZASPACEIRR " <a31> 
S@E@B PRINT" HOME, 15DOWN}" <178> 
10AGB RETURN <197> 


Listing 2. Dieses Demo-Programm zeigt Ihnen die verblüf- 
fende Wirkung des Scrollens in allen Richtungen 
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Besseres 
Monitorbild 
beim C 64 


Mit dieser kleinen Bauanleitung läßt 
sich die Bildschirmwiedergabe des 
C 64 auf einem monochromen Monitor 
wesentlich verbessern. 


Nachdem ich einen monochromen Moritor (zirka 300 Mark, 
15 MHz, grün) an die Videobuchse (Luminanzsignal) meines 
C 64 angeschlossen hatte, konnte ich das Testergebnis der 
Ausgabe 12/84 nur bestätigen, »daß es nicht so einfach ist, 
dem Commodore 64 ein klares und kontrastreiches Bild zu 
entiocken«. 

Da bekanntermaßen ein Signal (auf dem Monitor) nur so gut 
abgebildet werden kann, wie es von der Quelle (C 64) ausge- 
sendet wird, untersuchte ich mit Hilfe eines Oszilloskops die 
Signalverläufe innerhalb der Modulator- beziehungsweise Vi- 
deoschaltung. Dabei stellte ich fest, daß der vom VIC Il-Chip 
unter anderem bereitgestellte Zeileninhalt in der Videostufe 
durch einen Tiefpaß auf wenige MHz begrenzt wird. Das hat 
zur Folge, daß die Ränder der auf dem Monitor dargestellten 
Zeichen oder Punkte nur unscharf abgebildet, und die horizon- 
talen Bildanteile (insbesondere bei Grafik) stark überbetont 
werden. 

Überraschenderweise fand ich bei weiterem Durchmessen 
der Videostufe einen Meßpunkt (Punkt »A« in der Skizze), an 
dem das vollständige Videosignal (FBAS) mit nicht begrenzter 
Bandbreite vorliegt, und der mit dem niederohmigen Eingang 
(75.0) des Monitors belastet werden darf. 

Unter der Voraussetzung, daß die vier vorhandenen Ab- 
gleicheinrichtungen nicht verstellt werden (Punkte »B« in der 
Skizze) und die Garantieansprüche. unter Umständen durch 
diesen Eingriff verfallen, kann das Monitorbild des Commodo- 
re 64 folgendermaßen verbessert werden: 

e Öffnen des C 64-Gehäuses mit den auf der Computerrück- 
seite vorhandenen drei Schrauben. 

e Entfernen der Abschirmpappe und Abziehen der Tastatur- 
und LED-Leitungen. 

e Lösen des Lötpunktes »C« bei gleichzeitigem Abheben des 
Modulatorgehäusedeckels. 

® Anlöten des Innenleiters eines handelsüblichen, abge- 
schirmten Kabels an der mit »A« gekennzeichneten Stelle. Die- 
se befindet sich zur Kontrolle zwischen einem 120 Q und 
180 Q Widerstand. 

© Anlöten der Kabelabschirmung an der Gehäuseinnenwand. 
® Durchführen des Koaxialkabels durch die Offnung »D« im 
Gehäusedeckel sowie durch eine der Öffnungen auf der 
Rechnerrückseite. 


e Anlöten eines handelsüblichen Cinch-Steckers am Ende 
des zirka 1 m bis 2 m langen Koaxkabels. 

© Schließen und Verlöten des Modulatordeckels, Aufstecken 
der abgezogenen Leitungen und Zusammenbau des C 64. 

Um ein möglichst kontrastreiches Bild zu erzielen, empfiehlt 
sich bei monochromen Monitoren ein schwarzer Hintergrund 
und weiße Zeichen. 

Es sei noch einmal darauf hingewiesen, daß die Versuche 
mit einem monochromen Monitor durchgeführt wurden. Ob 
sich die Qualität von Farbmonitorbildern auf die gleiche Weise 
verbessern läßt, müssen am besten weitere Experimente zei- 
gen. 

(Dipl.-Ing. Stephan Greitzke/aa) 


TV-Buchse 


vom VIC 


Lötpunkt für Innenleiter 
Abgleichschrauben (nicht verstellen) 
Lötbefestigung (lösen) 
Durchführung für Kabel 

Elko 

Transistor 


= 


4000ou> 


Schematisierte, auszugsweise Darstellung der 
Modulatorplatine mit Gehäuse 
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Maschinen- 
programme 
auf Diskette 
speichern 


Reine Maschinenprogramme haben 
gegenüber einem Basic-Lader zwei 
entscheidende Vorteile. Sie sind we- 
sentlich kürzer und können direkt, oh- 
ne zeitraubendes POKEn, geladen 
werden. Dieses Programm soll Ihnen 
helfen, Maschinenprogramme auf Dis- 
kette zu speichern. 


Ein einfacher Basic-Lader besteht aus einer READ/POKE- 
Schleife, in der DATAs in den Speicher geschrieben werden. 
Jeder Wert, der in dieser Schleife gePOKEt wird, ist ein Byte 
eines Maschinenprogramms, ein Maschinenbefehl oder ein 

. Teil davon. Anstatt die DATAs in den Speicher zu POKEn, kann 
ein Basic-Lader dazu benutzt werden, das Maschinenpro- 
gramm auf Diskette.abzuspeichern. Der Lader wird dazu nur et- 
was geändert. 

Ein Maschinenprogrammfile auf Diskette enthält, vor den 
Maschinenbefehlen, in den ersten beiden Bytes, die Start- 
adresse des Programms. Der Computer erkennt daran, ab wel- 
cher Speicherstelle er das Programm laden soll. 

Der Basic-Lader muß also ein Programmfile eröffnen, die 
Startadresse des Maschinenprogramms ins File schreiben 
und anschließend alle Werte aus den DATA-Zeilen. Wie das im 
einzelnen programmiert wird, können Sie am Listing des Bei- 
spielprogramms sehen, das Sie ohne weiteres an jedes Lade- 
programm anpassen können. 

Der wichtigste Befehlin diesem Beipiel steht in Zeile 50130: 
OPEN 1,8,1, "Programmname” 

Er öffnet eine Datei. Allerdings keine sequentielle, sondern 
eine Programmdatei. Die Sekundäradresse 1 sagt der Floppy 
1541, daß nun ein Programm (NAME.PRG) geschrieben wird. 
Häufig findet man für diesen Befehl die Syntax 
OPEN 2,8,2, ”Programmname,P, W” 

bei der man die Sekundäradresse frei wählen darf. Hier muß 
jedoch nach dem Namen angegeben werden, daß eine Pro- 
grammdatei (P) geöffnet werden soll, in die geschrieben wird 
(Write). Entsprechend kann bei sequentiellen Dateien optional 
»S,W« bei Schreib- oder »S,R« bei Lesezugriffen angegeben 
werden. 


Nachdem in Zeile 50130 die Programmdatei angelegt wur- 
de, muß die Startadresse des Maschinenprogrammes gespei- 
chert werden. Die Startadresse wird dazu in den Zeilen 50170 
und 50180 in Low- und High-Byte zerlegt und die zwei Byte 
in Zeile 50190 in das Programmfile geschrieben. Jetzt wird 
das eigentliche Programm gespeichert. Die numerischen 
Werte müssen dazu mit der CHR$-Funktion in die entspre- 
chenden Strings übersetzt werden. Um die erforderliche Da- 
tendichte beim Schreiben des Files zu erreichen, muß jedem 
String ein Semikolon »,« folgen. Ohne Semikolon ist das Pro- 
gramm später nicht lauffähig. Sind alle Werte, die der Basic-La- 
der in den Speicher gePOKEt hätte, gespeichert, wird die Da- 
tei mit CLOSE geschlossen. Damit ist das Maschinenpro- 
gramm auf Diskette gespeichert und kann mit 


LOAD "NAME" 8,1 


geladen und, wenn dies notwendig ist, mit dem entspre- 
chenden SYS-Befehl gestartet werden. 
Laden von Maschinenprogrammen in Basic 

Sie können Maschinenroutinen mit Hilfe von Basic- 
Programmen laden, ohne sie zu zerstören. Dabei ist zu beach- 
ten, daß nach dem Laden das Basic-Programm von Neuem 
startet. Die Basic-Zeile 
10 LOAD "KEIN ENDE” 8,1 

bewirkt deshalb eine Endlosschleife, die immer wieder das 
Maschinenprogramm »KEIN ENDE« lädt. Da angelegte Varia- 
blen dabei erhalten bleiben, kann mit 
10 IF A=0 THEN A=1:LOAD "KEIN ENDE”, 8,1 
ein mehrmaliges Laden verhindert werden, da beim Neustart 
A=1 ist. {S. Wengler/hm) 


Listing des Beispielprogramms 


Ssaann 
Ssa012 
SB222B DATA 
saa30 DATA 
SpZaQ : 
S@RSQ REM 
SA2&B REM 
52270 : 
SBREQ REM S KOENNEN WEGGELASSEN WERDEN 
saBea : 
SQiIBB REM sA 
5B11B REM ER 
sB12B : 

sa152 
8142 
s2158 
S2168 
>2178 


REM 
DATA 


BASIC-LADER 


MASCHINENPROGRAMME AUS 
DATALADERN 


STARTADRESSE 
ENDADRESSE 
OFEN 


1,8,1, "NAME" 


SA U. EA ZUORDNEN 

INT (SA/25&) :REM HIGH-BYTE 
sa1len SA-SH*256 :REM LOW-EYTE 
SB1FB PRINT#1,CHRE(SLIS;CHRE SH): 
SBzB8B : 
s22108 FOR I=SA TO EA 
s222B READ WERT 

52230 PRINT#1 „CHR& (WERT): 
sB240 NEXT I 

sa=252a : 
B26B 


CLOSE 1 
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RAM-Floppy 





Wer kennt das nicht: ein paar Verände- 
rungen an einem Programm — eine 
Zeile rein, eine andere raus — und 
nichts geht mehr. Das lästige Neula- 
den des Originalprogramms von Dis- 
kette können Sie ab jetzt vergessen. 


Ist ein Programm mal wieder zu Tode editiert, werden Sie nun 
nicht mehr von den langen Ladezeiten der 1541 in Ihrem Pro- 
grammierdrang gebremst. Mit »RAM-Floppy« kann ein Pro- 
gramm bearbeitet werden, während man eine Kopie davon im 
RAM hat. In Sekundenschnell kann die Kopie in den Basic- 
Speicher gebracht oder mit der Originalversion vertrauscht wer- 
den. Ganz einfach durch Eingabe von »@V« oder »@T«. Nume- 
rische Variablen bleiben dabei erhalten. Die »RAM-Floppy«be- 
sitzt eine Speicherkapazität von maximal 25 KByte. Der Spei- 
cher beginnt ab Adresse 40960. 

Ein Problem ergibt sich im Speicherbereich des Kernal- und 
Basic-ROMs. Ein POKE-Befehl schreibtins RAM, während die 
PEEK-Funktion auf das ROM zugreift. Noch komplizierter sieht 
es beim Zeichen-ROM und den I/O-Bausteinen aus. Wie Sie 
vielleicht aus unserem Grafikkurs wissen, gibt es in diesen Be- 
reichen drei Speicheretagen. Der Inhalt der Zelle 1 regelt den 
Zugriff des Computers auf die verschiedenen Speicherebe- 
nen. Werden die Bits O und 1 in Adresse 1 gelöscht, sieht der 
Computer nur noch das RAM. Basic- und Kernal-ROM sind 
verschwunden. Löschen Sie diese Bits deshalb nur durch ein 
Maschinenspracheprogramm, wenn vorher Ein- und Ausga- 
ben gesperrt wurden. Dies wird durch Setzen des Interruptre- 
gisters erreicht. 

Das Maschinenprogramm besteht aus drei Teilen. Im Be- 
reich von 40704 bis 40768 erfolgt die Auswertung der Befeh- 
le von »RAM-Floppy« und der Aufruf der beiden Unterprogram- 
me, die das Tauschen oder Verschieben der Basic-Programme 
erledigen. 

Das abgedruckte Basic-Programm POKEt das Maschinen- 
programm ab Adresse 40704. Mit SYS 40704 wird es initiali- 
siert. 

Wie bereits erwähnt, hat die »RAM-Floppy« eine Kapazität 
von 25 KByte. Das Programm im Basic-Speicher kann zwar 38 
KByte lang sein, läßt sich dann allerdings nicht mehr vollstän- 
dig verschieben oder vertauschen. Der Speicherbedarf sollte 
auch bei Programmen mit vielen Variablen nicht außer acht ge- 
lassen werden. Bei. langen Programmen mit vielen Variablen 
kann es durchaus vorkommen, daß die Programme zwar ge- 
tauscht, die Variablen allerdings nicht mehr übernommen wer- 
den können. 


(Uwe Klatt/hm) 





9 Aka 


Listing zu »Ram-Floppy« 


a REMSEREREISHHESHSSHRIESRSRRIIGBIRIBISSIHIEIEN <B35> 
i REM* RAM-FLOFPY * <2037 
2 REMHRRRRRRBRBBRRBIHHHHHHHBHHERIHHHHEIIT NR <B37> 
3 REM* UWE KLATT * <B87> 
4 REM# BILLERBECKER STR. 27 * <221> 
5 REM# 4939 STEINHEIM * <1B2> 
& REM# TEL. 25233/5672 * i252> 
7 REMIS ET IHHNEENHHHIERN <B42> 
8 POKE 53288,0:FOKE 53281,11 xB95> 
7 FOEE 646,8 <164> 
18 PRINT"BITTE WARTEN" <B48> 
11 REM Hs RENTEN INH <A92> 
2 REM #** DATAS LESEN *%% x123> 
13 REM KRETA HIN N <B974 > 
14 FOR I=4907084 TO 49768:READ A:FOKE 1,A:9=5+A 
ıNEXT <248> 
15 IF 5<>6567 THEN END <B09> 
15 FOR I=48784 TO 49849: READ A:POKE I,A:S$=5+A 
NEXT 2027 
17 IF S<>14392 THEN END <125> 
iS FOR 1I=498853 TO 42982:READ A:FOKE 1,9:5=5+A 
:NEXT x247> 
19 IF S<>22412 THEN END <117> 
DD REM KERN HNHH NH FERN HN <18i> 
21 REM x*%* MENUE RR <B2&> 
ZEREM ERHRETETTNNNERTIIENHHEHTR I ER x103> 
23 FRINT EHR#(147 <1B0> 
24 PRINT" {RVSON,4BSPACE}" <D66> 
25 PRINT" {RVSON,SPACE}FRAM-FLOPPY 25.5 KBYTE 
t185FACE}Y"; <113> 
26 PRINT" {RVSON,A4BSPACE}" <B09> 
27 PRINT" "@V " {2SPACE}YVERSCHIEBT FROGSRAMM IN 
{2SFACEIRAM-FLOPPY" <174> 
28 PRINT" '@T" {2SPACE}VERTAUSCHT FROGRAMM MIT 
RAM-FLOPPY” <B24> 
ZI REMORRRHHNNNRR TRETEN HERNE RERNNN <118> 
38 REM *** MC PROGRAMM STARTEN #Rr <191> 
31 REM RR RUHT TH HN HN ER <112> 
32 SYS 428784 <121> 
33 REM RUHE RHEIN TEEN z114> 
534 REM »#* DATAS FUER 1. MC TEIL #** x185> 
35 REM KREIEREN R «i1l6> 
36 DATA 169,159,133,56,133,52,169,2,133,559,167, 
21,141,8,3,169 <239> 
37 DATA 1597,141,9,3,96,32,115,0,2480,4,201,64, 
249,3,76,231 <B11> 
38 DATA 167, 32,115,80,281 ‚84,240, 7,201 ,864,242,12, 
76,8,175,32 <11A> 
37? DATA 115,0,32,80,159,76,174,167,32,115,0,32, 
149,159,76,174 239> 
48 DATA 167 xB73> 
Al REM KREIEREN N RR HF N NR <122> 
42 REM ###* DATAS FUER 2. MC TEIL #*%* <114> 
33 REM HR TTTNENNNNTTIHNH <124> 
44 DATA 169,2,133,45,1697,194,1533,46,128,165,1, 
41,252,133,1,167 i815> 
45 DATA 8,1535,98,135,1990,141,0,160,169,16@8,135, 
101, 169, 8, 133,99 <B&6> 
4b DATA 162,96, 168,8,177,98,135,1092,177,109,145, 
79,1685,182,145,108 {227> 
47 DATA 208,208,241,239,99,258,101,202,2088,252, 
165,1,9,3,135,1 A2I3> 
48 DATA 88,76 x198> 
AI REM HR HH FRR <1308> 
52 REM #*# DATAS FUER 3. MC TEIL ##** i123> 
SI REM RER THREE N Ais2> 
52 DATA 128,165,1,41,252,133,1,169,8,132,78,133, 
189,141,0,1&02 ö X206> 
53 DATA 169,168,135,101,1689,8,1353,99,162,76,1&8, 
8,177,78,145, 1200 151> 
54 DATA 2290,2028,249,2308,97,230,101,202,288,240, 
165,1,7,3,133,1 <B11> 
55 DATA 88,76 <197> 
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Diese Erweiterung bietet wesentlich 
mehr als ein einfaches Hilfsprogramm. 
Sie stellt einen umfangreichen Befehls- 
katalog für die Erzeugung von Grafiken 
zur Verfügung. Und sie liefert außerdem 
etliche Programmierhilfen. 


s hat ein bißchen gedauert, 

doch nun will ich mein Ver- 
sprechen einlösen: Dornrös- 
chen ihre Behäbigkeit mit einem 
grafikunterstützenden Maschi- 
nenprogrammzunehmen. Zuvor 
noch zwei erfreuliche und eine 
weniger gute Nachricht: Leider 
ist das Grafik-Hilfsprogramm so 
lang, daß es Ihnen in zwei Teilen 
vorgelegt werden muß. Dann 
die beiden frohen Botschaften: 
Sie bekommen etwas viel besse- 
res als nur eine kleine Grafikhil- 
fe und die Grafikserie wird fort- 
gesetzt. 

Viele Briefe zeigten uns, daß 
Sie noch mehr wissen möchten. 
Zu speziellen Grafikthemen soll 
daher in lockerer Reihenfolge 
weiterhin Dornröschen aufge- 
Putzt werden. Wennsie also spe- 
zielle Grafikwünsche haben, 
dann schreiben Sie. Der C 64 
kann viel mehr als Sie vielleicht 
glauben! Was Apple kann — be- 
haupte ich mal ganz frech — das 
kann unser Computer auch — 
nur viel preiswerter. 

Wieso bekommen Sie etwas 
viel besseres als ursprünglich 
vorgesehen? Das zunächst vor- 
gesehene Grafik-Hilfspro- 
gramm ist Ende 1983 fertigge- 
stellt worden und hieß Hires-. 
Es war der Auslöser für diese 
Serie. Ich hatte esentwickelt, um 
meine eigenen Grafikbedürfnis- 
se (Punkte setzen, Linien ziehen 
etc.) auf schnelle Art mit SYS- 
Aufrufen zu erfüllen. Die Ent- 
wicklung blieb aber nicht ste- 
hen. Hires-2 holte sich bereits al- 
le nötigen Werte zum Zeichnen 
mit den USR-Kommandos und 
die SYS-Befehle wurden über- 
flüssig. Was Sie jetzt bekommen, 
das ist Hires-3. Aufrufe der ein- 
zelnen Routinen (essind über 40) 
erfolgen mit neu geschaffenen 
Basic-Befehlsworten, die sowohl 
im Direktmodus als auch in Pro- 
grammen verwendet werden. 
Kenner werden feststellen, daß 
Hires-3 sozusagen organisch ge- 
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wachsen ist, wie es halt vielen 
großen Programmprojekten er- 
geht, die immer weiter verbes- 
sert werden: Nebenbei be- 
merkt: Momentan arbeite ich an 
Hires-4. 

Hires-3 wurde mit dem Ge- 
danken entworfen, das Schrei- 
ben von Grafikprogrammen ein- 
facher zu gestalten. Deswegen 
sind nicht nur ausgesprochene 
Grafikbefehle dabei, sondern 
auch OLD, MERGE, RENUM- 
BER, AUTONUMBER, PAUSE, 
UHR etc. Die Grafik-Unterstüt- 
zung ist für alle Anwendungsbe- 
reiche gedacht, wobei der 
Schwerpunkt allerdings weni- 
ger auf »Spielen« und »künstleri- 
sche Änwendungen« liegt. Des- 
wegen sind keine Joystick-, keine 
Lightpen- und keine Sprite-Be- 
fehle enthalten. Schließlich 
spielte esnoch eine große Rolle, 
daß viel Speicherplatz für Basic- 
Programme und Daten frei blei- 
ben sollte, ebenso wie der für 
Maschinensprache interessante 
Bereich von $C000 bis $D000. 

Deswegen liegt das Pro- 
gramm Hires3 ab $8000 
(dez.32768) bis $89B5 (dez.35253) 
und von $9000 (dez.36864) bis 
$9DCB (dez.40395). Es fängt also 
dort an, wo auch Module ihren 
Platz haben. Der Bildschirm für 
hochauflösende Grafik liegt von 
$8C00 (dez.35840) bis SSFFF 
(dez.36863), der für den Normal- 
betrieb bleibt an der gewohnte 
Stelle (1024...). Die 8000 Byte lan- 
ge Bit-Map kommt uns nicht 
mehr in die Quere: Sie ist unter 
dem Basic-ROM versteckt. Wir 
haben also trotz 44 neuer Befeh- 
le und Funktionen und einer 
stets präsenten hochauflösen- 
den Grafik auf einem zweiten 
Bildschirm immer noch 30 KByte 
RAM für Basic freiund zusätzlich 
auch noch den Bereich $C000 
bis $D000 für Maschinenpro- 
gramme. 

Hires-3 wird mit dem MSE ein- 
gegeben (Seite 68). Nach der 


eine Super-Grafikerweiterung 
zum Grafikkurs 


Eingabe des Programms emp- 
fiehlt es sich, das Ganze erstmal 
aufeinem Massenspeicher (Kas- 
sette oder Diskette) sicher abzu- 
legen. 

Bevor Sie ein neues Basic-Pro- 
gramm schreiben, sichern Sie 
bitte noch HIRES-3 durch die in 
den vergangenen Grafik-Folgen 
vorgestellten Schutz-POKEs: 
POKE52,128:POKE56,128 

Mit SYS36864 starten Sie 
Hires-3. Außer der READY- 
Meldung werden Sie erstmal 
nichts Neues sehen. Sie haben 
nämlich nichts anderes getan, 
als den Funktionstasten Befehle 
zuzuteilen. Deshalb fangen wir 
jetzt mit der Erklärung der Be- 
fehle an und zwar mit eben die- 
sen Funktionstasten: Vorsicht! 
Nicht alles gleich ausprobieren! 
Sehen Sie vorher noch in der 
Tabelle | nach, welche Befehle 
erst in der nächsten Folge von 
Hires-3 eingebaut werden. 


Tabelle 1. Von den im Artikel 
erwähnten Befehlen kommen die 
nachfolgenden erst im nächsten Teil 
von Hires-3 
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Wenn Sie die vorher benutzen, 
stürzt das Programm wahr- 
scheinlich ab. Es erfolgt dann 
ein Programmsprung ins Leere 
— und das wollen wir unserem 
Computer doch nicht zumuten! 


1. Hilfsfunktionen 
1.1 Funktionstastenbelegung 

Genau genommen schaltet 
man durch SYS 36864 nur die Be- 
legung der Funktionstasten ein. 
Ausschalten erfolgt durch 
gleichzeitiges Drücken der 
RUN/STOFP- und der RESTORE- 
Tasten. Nunzur Belegung imein- 
zelnen: 
Fi RUN 

Startet ein im Basic-Speicher 
stehendes Programm sofort. 
F2 _RENUMBER-Befehl 

Auf dem Bildschirm erscheint 
SYS33256. Man schreibt nun: 
SYS33256,Abz,Nbz,Sch. 






Dabei bedeuten: 


Abz = erste alte Basic- 
Zeile, von der an neu nu- 
meriert werden soll. 
Nbz = erste neue Basic- 
Zeilennummer 
Sch = Schrittweite 
Dieser Befehl numeriert auch 
alle GOTO, GOSUB IF..THEN..., 
RUN... etc. neu. 
Beispiel: 
SYS33256,1,10,5 numeriert ein 
Programm ab der alten Zeilen- 
nummer 1, welche nun 10 heißt, 
in Ser-Schritten neu durch. 
F3 Aktivieren der neuen Basic- 
Befehle 
Auf dem Bildschirm erscheint 
SYS37498 und READY. Jetzt sind 
alle neuen Basic-Befehlsworte 
verfügbar. Verwendet man ei- 
nes der neuen Befehlsworte vor- 
her, erzeugt das einen SYNTAX 
ERROR. Das Abschalten der 
neuen Befehle geschieht mittels 
»AUS«. 
F4__OLD-Befehl 
Auf dem Bildschirm erscheint 
SYS37227 und ein durch NEW 
oder einem RESET gelöschtes 
Basic-Programm wird wieder 
gelistet und funktionsfähig (vor- 
ausgesetzt, daß es nicht durch 
Überschreiben zerstört wurde). 
Störungen können auftreten, 
wenn noch kein Basic-Pro- 
gramm im Speicher enthalten 
ist. Nach der Verwendung die- 
ses Befehls sollte überprüft wer- 
den, ob durch das vorangegan- 
gene Löschen die SchutzPOKEs 
52 und 56 verändert worden 
sind. 
F5 _AUTONUMBER-Befehl 
Auf dem Bildschirm erscheint 
SYS37018 und eine Zeilennum- 
mer. Diese Funktion setzt auto- 
matisch nach jedem RETURN i- 
ne neue Zeilennummer, die sich 
an die letzte im Programm vor- 
handene anschließt. Im Normal- 
fall wird dabei in l0er-Schritten 
gearbeitet, eine andere Schritt- 
weite wird durch POKE37169, 
Sch erzeugt (dabei ist Sch die 
Schrittweite). Die AUTONUM- 
BER-Funktion wird durch 
Drücken von RETURN direkt 
nach einer Zeilennummer abge- 
schaltet. 
F6 MERGE-Befehl 
SYS373068 erscheint auf dem 
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Bildschirm und die Information: 
»#%*MERGE*** BEREIT ZUM 
KOPPELN! READY.« Das Basic- 
Programm läßt sich allerdings 
nicht Listen oder Starten. Denn 
die Zeiger sindnunaufdasEnde 
des Programms gestellt. Der 
Computer wartet auf das Laden 
des anzuhängenden Pro- 
gramms, was durch eine norma- 
le Ladeoperation stattfindet. 
Man drückt nun erneut F6 und 
auf dem Bildschirm erscheint: 
SYS37306 und der Text: 
»*#*MERGE*** PROGRAMME 
GEKOPPELT! READY. Wenn 
man nun listet, zeigt essich, daß 
beide Programme aneinander- 
gehängt sind. Man sollte darauf 
achten, daß das anzuhängende 
Programm höhere Zeilennum- 
mern aufweist als das erste, 
denn sonst kommt es bei GOTO 
oder GOSUB-Sprüngen zu Feh- 
lern. 

F7 Startet Maschinenprogramme, 
die bei $C000 (dezimal 49152) lie- 
gen. Äuf dem Bildschirm er- 
scheint SYS49152. 

F8 Startet Maschinenprogramme, 
die bei$7000 (dez. 28672) liegen. 
Auf dem Bildschirm erscheint 
SYS 28672. 

Achtung! Diese beiden Tasten 
sollte man nur betätigen, wenn 
an den Ansprungadressen auch 
wirklich ein Programm startet, 
denn sonst stürzt der Computer 
unter Umständen ab. Sehr prak- 
tisch sind diese beiden Funk- 
tionstasten, wenn an den Start- 
adressen andere Sprachen ver- 
fügbar sind, zum Beispiel bei 
$C000 ein Maschinensprache- 
Monitor liegt oder ähnliches. 
Auch zum schnellen Starten von 
unfertigen Assembler-Program- 
men, die an einer der beiden 
Stellen anfangen. Für solche 
Testssind F7und F8guteinzuset- 
zen. 

1.2 Hilfsfunktionen als neue Basic-Be- 
fehle 

Das sind fünf Befehle: PAU, 
DEEK, AUS, DUMP und UHR 
Aus: Schaltet die Befehlserwei- 
tungen aus. Das beschleunigt 
den Ablauf eines Basic-Pro- 
gramms. Der Interpreter muß 
nunnichtmehr den Umweg über 
die hier vorgestellten Befehlser- 
weiterungen laufen. Der Zeitun- 
terschied ist allerdings minimal 
und nur bei zeitkritischen Ab- 
läufen interessant. 

DEEK: Ist eine modifizierte PEEK- 
Funktion, die das RAM unter 
den ROM-Bausteinen ausliest 
und in Speicherstelle 2 ableat. 
Syntax: DEEK, Speicherstelle 
Beispiel: 

DEEK, 53272:PRINTPEEK(2) 
ergibt 255, den Inhalt des RAM 
unter dem ROM, wogegen 
PRINTPEEK(53272) den ROM- 
Inhalt 21 ergibt. 

PAU: Pausen-Befehl. PAU,lO er- 
zeugt eine Pause von 10 Sekun- 
den. 

DUMP: Gibt alle definierten Varia- 
blen mit ihren aktuellen Werten 
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aus. Ärrays werden nicht be- 
rücksichtigt. 

UHR: Zeigt in der rechten oberen 
Bildschirmecke eine Uhr an. 
Stellen: UHR, »hhmmss«, Zei- 
chenfarbe 

Ausschalten: UHR 

Wieder einschalten: UHR 

Vor der Verwendung des Hoch- 
auflösungs-Modus sollte die 
UHR ausgeschaltet werden, 
ebenso vor dem Aufruf des 
Hardcopy-Befehls. 


2. Grafik-Befehle 


2.1 Einrichten der Grafik 
HFL,Zf,Hf: Der Befehl richtet den 
Hochauflösungs-Grafikmodus 
ein, setzt die Zeichenfarbe (Zi) 
und die Hintergrundfarbe (Hf) 
und löscht ein eventuell vorhan- 
denes Hochauflösungsbild aus. 
Dabei liegt der Bildschirm von 
$8C00 bis $8FE7 (dezimal 35840 
bis 36839) und die Bit-Map unter 
dem Basic-ROM ($A000-$C000). 
HAN: Schaltet nur den Hochauflö- 
sungs-Modus an. 
FAR,ZE,Hf: Setzt nur die Farben im 
Hochauflösungsbild. 
LOE: Löscht nur das Hochauflö- 
sungsbild. 
HOF: Schaltet des Hochauflö- 
sungsbild aus und richtet den 
Normalmodus wieder ein. 


2.2 Zeichnen im Bildschirmsystem 
(dabeix von Obis 319, yvonObis 
199). Erinnern Sie sich bitte an 
das Bildschirmkoordinatensy- 
stem. Alle x- und y-Koordinaten, 
die unter 2.2 und 2.3 benutzt wer- 
den, beziehen sich auf dieses 
System (Bild ]). 

PKT,x,y: Zeichnet an der durch x 
und y angegebenen Stelle des 
Bildschirmes einen Punkt. Die 
Bedeutung der Bezeichnungen 
folgen aus Bild 2. Wegen der Ei- 
genart des Bildschirmsystems 
ist daraufzu achten, daßxundy 
nie kleiner als 0, x nie größer als 
319 und y nie größer als 199 wer- 
den. Koordinaten-Eingaben, die 
größer als319 (beziehungsweise 
199) sind, führen lediglich dazu, 
daß keın Punkt gezeichnet wird. 
Eingaben kleiner als Null erge- 
ben einen SYNTAX ERROR. 
LIN,xa,ya,xb,yb 

Zeichnet eine Linie vom Punkt A 
mit den Koordinaten xa, ya bis 
zum Punkt Bmitden Koordinaten 
xb, yb (siehe Bild 3). Die Rich- 
tung der Linie ist beliebig. Die 
Bemerkung zur Größe der Koor- 
dinaten gilt hier entsprechend. 
REC,xa,ya,xb,yb 

Zeichnet ein Rechteck, das 
durch den linken oberen Punkt 
Alxa,ya) und den rechten unte- 
ren Punkt B(xb,yb) gekennzeich- 
netist (siehe Bild 4). Für die Koor- 
dinatengrenzwerte gilt dasselbe 
wie beim Befehl PKT. 
BLO,xa,ya,xb,yb 

Füllt ein Rechteck der angege- 
benen Maße (siehe REC für die 
Bezeichnungen) mit der Zei- 
chenfarbe aus. 

CIR,xm,ym,rx,ty‚w 

Zeichnet eine Ellipse odereinen 


Y 


Bild 1. Die Gestalt des Bildschirmsystems 





Bild 2. Bezeichnungen beim PKT-Befehl 








Bild 4. Bezeichnungen beim REC-Befehl 
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Kreis (Sonderfall der Ellipse mit 
rx=ry)mit den folgenden Merk- 
malen: xmym= Koordinaten 
des Mittelpunktes M, rx,ry= 
Halbmesser in x- beziehungs- 
weise y-Richtung. 

w =Zeichenwinkel (Bogenmaß). 
Zur Erläuterung der einzelnen 
Bezeichnungen dient Bild 5. Au- 
ßer negativen xm und ym- 
Koordinaten sind alle Eingaben 
zulässig. 

RAD,xm,ym,rx,ry,‚w 

Zeichnet in die Ellipse einen Ra- 
dius ein. Die Bezeichnungen 
sind dieselben wie für den CIR- 
Befehl. w zeigt hier aber an, an 
welche Stelle im Ellipsenbogen 
der Radius gezeichnet werden 
soll (siehe Bild 6). 

2.3 Löschen im Bildschirmsystem 
LPK,x,y: Löscht den angegebe- 
nen Punkt xy. 

LLN,xa,ya,xbyyb: Löscht die Linie 
von xa,ya bis xbyb 
LRE,xa,ya,xb,yb: Löscht das Recht- 
eck (Bezeichnungen wie bei 
REC) 

LBK,xa,ya,xb,yb: Löscht das ausge- 
füllte Rechteck. 

LKR,xm,ym,rx,ryw: Löscht die Ellip- 
se (Bezeichnungen wie bei CIR) 
LRA,xm,ym,rx,ry‚w: Löscht den El- 
lipsenradius 


3. Abspeichern/Laden von Hoch- 
auflösungsbildern 


HIS, "Name",gn,sa 
SAVEn des Hochauflösungsbil- 
des mit »Name« auf dem Gerät 
mit der Gerätenummer on. Es 
gelten die gleichen Regeln wie 
beim normalen SAVE-Vorgang. 
HIL, "Name",gn,sa 
Laden eines Hochauflösungsbil- 
des vom Speichermedium mit 
der Gerätenummer on. Es gel- 
ten die gleichen Regeln wie für 
den normalen Ladevorgang. 
Diese neuen Befehle sollen für 
diese Folge ausreichen. In der 
nächsten Ausgabe werden die 
anderen Befehle beschrieben, 
die HIRES-3 von allen mir be- 


kannten Grafik-Software-Pake- 
ten unterscheidet, 

Zur Praxis: Bedenken Sie bitte 
beim Ausprobieren dieser neu- 
en Befehle, daß Sie alle auch im 
Direktmodus verwenden kön- 
nen. Das ist — gerade beim Te- 
sten — mitunter ganz bequem. 
Allerdings sind die Befehlswor- 
te auf dem Hochauflösungsbild- 
schirm nur als farbige Quadrate 
zu erkennen (Warum? Siehe vor- 
angegangene _Grafik-Folgen). 
Wenn Sie mal das Gefühl haben, 
Sie hätten sich beim Eintippen 
eines Befehls vergaloppiert, 
dann löschen Sie auch im 
Hochauflösungs-Modus den 
Bildschirm einfach mit 
SHIFT/CLR-HOME. Sie werden 
dann immer noch das Hochauf- 
lösungsbild sehen (die Bit-Map 
wird janur durch LOE gelöscht). 
Mit dem FAR-Befehl bringen Sie 
wieder neue Farbe ins Bild. Soll- 
te ein Programm im 
Hochauflösungs-Modus auf ei- 
nen Fehler laufen und ausstei- 
gen, dann kommen Sie mit HOF 
leicht wieder in den Normalmo- 
dus zurück. 

Außer Hires-3 ist dieser Folge 
auch noch ein kleines Pro- 
gramm angefügt, mitdemSie al- 
le bisher vorgestellten Grafik- 
Befehle auf ihre Funktionsfähig- 
keittesten können. Nun noch ein 
Wort an die Spezialisten: In der 
nächsten Folge wird eine Auf- 
stellung aller benötigten 
Zeropage-Plätze und der ver- 
wendeten Sub-Routinen erschei- 
nen. Zur Selbstkritik: Einige Be- 
fehle fehlen, nämlich etwa zum 
Ausfüllen von umrandeten Flä- 
chen, dann eine Möglichkeit, 
Texte ins Hochauflösungsbild zu 
schreiben und anderes. Außer- 
dem ist in puncto Geschwindig- 
keit noch lange nicht das Opti- 
mum erreicht... aber irgend et- 
was muß für Hires-4 auch noch 


zu tun bleiben. 
(Heimo Ponnath/gk) 








- 





Listing 1: Das Grafik-Programm Hires-3 muß mit dem MSE (siehe Seite 68) eingegeben werden 


PROGRAMM : 
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HIRES3.1.* 


9DBB ?DCB 


97278 
9282 
97988 
97298 
7998 
g92AB 
FaAB 
9BBD 
F0B8 
92CD 
F72C8 
72D2 
F7BD8 
9BED 
FEB 
F72FO 
?OF8 
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Bild 5. Bezeichnungen beim CIR-Befehl 
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Bild 6. Bezeichnungen beim RAD-Befehl 
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Listing 1. Hires-3 (Fortsetzung) 
9100 : 
97188 
9118 
7118 
9128 
9128 
9138 
9138 
9148 
7148 
9158 
9158 
97168 
9188 
9178 
9178 
7188 
97188 
97198 
71978 
F71AD 
91A8 
71B8 
971B8 
91CD 
91C8 
71D® 
71D8 
91EDQ 


91EB : 





91FB 
91F8 
9208 
9208 
9218 
9218 
7228 
97228 
9238 
9238 
9240 
97248 








192 (URN Ta a ep 
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Listing 1. Hires-3 (Fortsetzung) 


74CD 
g4ce 
74D2 
94D8 
94ED 
94E8 
9AF® 
FAFB 
97522 
975808 
97518 
9518 
9520 
9528 
9538 
97538 
7542 
7548 
7558 
9558 
9562 
7568 
9572 
7578 
9588 
7588 
975978 
95978 
ISAD 
FSAB 
7SEQ 
95B8 
9SCD 
95C8 
95D2 
95D8 
9SED 
9SEB 
9SFO 
9SF8 
97688 
F9&BB 
9618 
9618 
9820 
9828 
9830 
97438 
97648 
978648 
9658 
9858 
9688 
9668 
9678 
97678 
98808 
97&88B 
9690 
9698 
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Listing 1. Hires-3 (Fortsetzung) 
7888 94 8D 

97888 u ]7] 

7878 EB 

7898 
F8AD 
F8AB 
78B2 
98BB 
978C2 
98C8 
978D2 
978D8B 
978EBO 
93EB 
78FB8 
98FB 
7972008 
7728 
9918 
99718 
9928 
9928 
9730 
9938 
99740 
7748 
99758 
9958 
9988 
97768 
979778 
99778 
7788 
9988 
23998 
99798 
99AD 
77AB 
9797B2 
99B8 
99CD 
77C8 
77DD 
77D8B 
77ED 
99E8 
797F8 
99FB8 
9ADD 
FADB 
F7A1D 
7A18 
FA2D 
7A28 
FASO 
FASB 
F7A4D 
9AA4B 
FASO 
FAS8 


FD 
A& 
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Listing 1. Hires-3 (Schluß) 


Listing 2. Dieses Programm testet Hires-3 und demonstriert einige Grafik-Befehle (zum Eintippen bitte den Beitrag »Checksummer 64« beachten) 


REM EEE 
REM * 
REM GRAFIK - DEMO * 
REM ZUM * 
REM TESTEN DES ERSTEN TEILS VON * 
REM * 
+ 
+ 
* 
* 


<259> 
<229> 
<256> 
<227> 
<228> 
<235> 
<197> 
X235> 
<B45> 
<BBS> 


REM HIRES-S 
REM 
REM * (H.PONNATH HH 1984) 
REMHRRBRRRRRIGREIIHHNN 
POKE 52,128:POKE 56,128:SYS 37498 
:REM EINSCHALTEN DER NEUEN BASIC-BEFEHLE 
<1358> 
REM ---------—- DER LIN-BEFEHL -————— — 
DEF FN A(X)=(Y2-Y1)#(X-X1)/(X2-X1)+V1 
:DEF FN B(ZI=(YA-YS)#lZ-X3) /(XA-X3)+V3 <B45> 
DEF FN C(I)=X1+I1*(X2-X1)718 
:DEF FN D(I)=X3+I1#= (X4-X3) 7/10 
DEF FN E(I)=X4-I#(X4-X3) /18 
x1=19:X2=190:X3=199:X4=318: Y1=19: Y2=170 
: Y3=195: Y4=15 
HFL,1,6 
FOR I=B TO 18 STEP.S:X=FN C(I):Z=FN D(I) 
:LIN,X,FN A(X),Z,FN B(Z):zNEXT <225> 
LIN,X1,Y1,X2,Y2:LIN,X3,Y3,X4,Y4 <244> 
PAU,S <136> 
HOF:PRINT CHR$(147) "DAS WAR DER LIN-BEFEHL" 
:PRINT:PRINT"PAU,HFL U. HOF FUNKTIONIEREN 
AUCH <x887> 
PAU,S <146> 
REM ------- DER REC-BEFEHL <198> 
LOE: HAN <970> 
98 DEF FN Z(X)=-3. IIBOIBE-I#X 1241. BSI66B#X+B. 9497 
:X1=290: Y1=198:X2=318: Y2=5 <117> 
95 X3=2: X4=I399: E=60 <121> 
1B8D FOR I=B TO E:XU=X2-I#=(X2-X1)/E:YU=FN AcXU) 
:X0=X4-I#(X4-X3) /E:YO=FN Z(XD) <1358> 
185 REC,X0,YO,XU,YU:NEXT I:PAU,S <a33> 
118 FAR,6,1:PAU,2:FAR,B,7z:PAU,1:FAR,2,8:PAU,1 
:LOE:PAU,1:HOF=:PRINT <1656> 
115 PRINT"DAS WAREN DIE BEFEHLE REC,FAR UND 
LDE":PAU,S <137> 
REM -- PKT,BLO,CIR,LBK UND LRE <819> 
HAN:BLO,49,1298,16£0,159:BL0,180,129,2898,150 


1 
2 
3 
4 
=) 
& 
7 
8 


Ne. 


<854> 


<158> 
<Ds5> 


<291> 
<285> 
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:BLO,280,129,258,158 <111> 
158 BLO,240,190,258,120:LBK,44,102,68,120 
:LBK,72,102,98,128:LBK,192,182,128,12® 
135 LBK,132,102,156,12®:LBK,182,1@2,198,148 
:LRE,44,122,68,148 
148 LRE,132,122,156,148:LIN,160,145,198,145 
:CIR,45,155,5,5,2%4 
145 CIR,S55,155,5,5,2*2: CIR,155,155,5,5,2%*# 
:CIR,145,155,5,5,2*2 <120> 
158 CIR,185,155,5,5,2*2:CIR,195,155,5,5, 2% 
:CIR,245,155,5,5,2#2 <182> 
155 LIN,8,168,319,16@:LIN,®,163,319,163 <247> 
168 FOR K=1 TO 1®8:FOR J=1 TO 235 <122> 
165 V=INT(RND(1)*28) +235-J:W=INT (RND(1)*108-J/3) 
:IF W>8 AND V>@ THEN:PKT,V,W:NEXT <867> 
170 NEXT K:PAU,S:HOF <815> 
175 PRINT:PRINT"DIESER ZUG FUHR MIT 
:PKT,BLO,CIR,LBK,LRE":PAU,S5 
188 REM ------ RAD UND LRA -------- 
185 HFL,®,6:FOR L=8 TOD IS=1STEP@/3B 
:RAD,168,10®,INT(1@*L) ,INT(18*L),L 
198 NEXT L:PAU,4:FOR L=8 TO S#aSTEP@/15 
:LRA,168,188,INT(7%L) ,INT(7*L),L:NEXT L <@13> 
195 PAU,4:HOF:PRINT:PRINT"SOWOHL RAD ALS AUCH 
LRA FUNKTIONIEREN" :PAU,4 <254> 
288 REM -——-——— LPK,LLN,LKR ——--- -- <188> 
285 POKE 53289,8 <194> 
218 HFL,6,14:BLO,298,10,328,190:X(1)=60:X(2)=128 
:X(3)=178:X (4) =288:X (5) =281 <244> 
215 X(6)=249:X(7)=268:Y(1)=65: Y(2)=42: Y(3)=70 
:Y(4)=1908: Y(5)=135:Y(6)=15B <@19> 
228 Y(7)=117:FOR I=1 TOD 7:LKR,X(I) ,Y(I) „2,2, 2% 
zLKR,X(I) ,YCI),1,1,2*m:NEXT I <B23> 
225 FOR I=2 TO 7:LLN,X(I-1) ,Y(I-1),X(D),Y(D) 
:NEXT IzLLN,X(7),Y(7),X(4) ,Y(4) <D13> 
238 FOR I=8 TO 588: V=INT (RND (1) #288) +28 
zW=INT (RND(1)*18@)+1@:LPK,V,W:NEXT IzPAU,S 
<034> 
235 POKE 53288,14:HOF:PRINT:PRINT"DER GROSSE 
WAGEN WURDE GEBILDET MIT" <231> 
248 PRINT"DEN BEFEHLEN:LLN,LPK UND LKR":PRINT 
:PRINT:POKE 646,1:PRINT"ALLES 0.K!" <197> 
245 POKE 646,14:END <119> 


<249> 
<199> 


<245> 


<BB1> 
<aS55> 


<147> 
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ie Comal-Grafik kann ihre 

Herkunft von einer anderen 
Programmiersprache nicht ver- 
heimlichen. Befehle wie »SHOW- 
TURTLE« und »TURTLESIZE« 
sind verräterisch: Die Sprache 
Logo mit ihrer bekannten Turtle- 
Grafik stand neben Basic und 
Pascal Pate beim Entwurf von 
Comal. 

Die Bezeichnung Turtle-Gra- 
fik stammt noch aus den Anfän- 
gen von Logo. Turtle ist das eng- 
lische Wort für »Schildkröte« und 
bezeichnete ursprünglich eine 
mechanische Schildkröte, die 
sich per Computersteuerung 
über ein großes Blatt Papier be- 
wegte und dabei mit einem 
Schreibstift eine sichtbare Spur 
hinterließ. Zur Steuerung dieser 
»Schildkröte« wurde eine spe- 
zielle Programmiersprache ent- 
wickelt, mit Befehlen wie »FOR- 
WARD«, »BACK«, »LEFTk etc. Das 
funktionierte einige Zeit ganz 
gut, aber dann tauchten die er- 
sten Mikrocomputer mit Grafik- 
bildschirmen auf, und die 
Schildkröte hauchte ihr mecha- 
nisches Leben aus und degene- 


Anweisung 


FORWARD n 
BACKn 
HOME 


LEFT w 
RIGHT w 
SETXY xy 


SETHEADING w 


SHOWTURTLE 
HIDETURTLE 
PENUP 


PENDOWN 
PENCOLOR n 
TURTLESIZE n 


Comal — Eine 


In dieser Folge unserer Comal-Einführung befassen wir 
uns mit einem der interessantesten Aspekte dieser 
Programmiersprache, nämlich der Grafik. 


rierte zu einem kleinen Dreieck 
auf einem Grafikbildschirm. 
Doch die grafische Program- 
miersprache Logo war geboren 
undist seitdem immer weiterent- 
wickelt worden. 

Das Konzept der Turtle-Grafik 
wurde vollständig in Comal inte- 
griert (Tabelle ]). Daneben gibt 
es auch spezielle Kommandos 
zum Zeichnen einzelner Punkte 
oder Linien, und zwar unabhän- 
gig von der jeweiligen Turtlepo- 
sition. Überhaupt wird der ge- 
samte Bereich von Grafik, Farbe 
undBildschirmansteuerungbeim 


C64durch Comal-Befehle abge-- 


deckt (Tabelle 2), man muß sich 
nicht wie im V.2-Basic mit merk- 
würdigen PEEKs und POKEs 
herumschlagen. 

Comal kennt drei verschiede- 
ne Bildschirmmodi, nämlich den 


Bedeutung 


Turtle n Schritte vorwärts 

Turtle n Schritte rückwärts 
Turtle auf Grundposition zurück- 
setzen 

Turtle um w Grad links drehen 
Turtle um w Grad rechts drehen 
Turtle auf die Koordinaten x,y 
setzen 

Turtle-Richtung absolut festle- 
gen (w=0 bedeutet, daß Turtle 
nach oben zeigt) 

Turtle sichtbar machen 

Turtle unsichtbar machen 
Turtleweg wird nicht mitge- 
zeichnet 

Turtleweg wird mitgezeichnet 
Zeichenfarbe n wählen 
Turtlegröße aufn Punkte festle- 
gen 


Tabelle 1. Befehle für Turtle-Grafik 





"Änweisung  Gedantung 
BACKGROUND n Hintergrundfarbe n wählen 
BORDER n _ Rahmenfarbenwähllen 
CLEAR Grafikbildschirm löschen 
DRAWTO xy Zeichnet eine Linie zum Punkt 
xy 
FILL = Flächen mit Farbe ausfüllen 
FRAME xl,x2yly2 Window festlegen 
FULLSCREEN Ganzer Bildschirm für Grafik 
MOVETO xy Grafik-Cursor aufx,y setzen 
PLOTxy Grafikpunkt setzen 
PLOTTEXT xy;text$ Text in Grafikbildschirm ein- 
blenden 
SETGRAPHIC Grafik-Modus wählen 
SETTEXT Auf Textbildschirm umschalten 
SPLITSCREEN In Grafikbildschirm zwei Textzei- 
len reservieren 


Tabelle 2. Allgemeine Bildschirm- und Grafikbefehle 


normalen Textmodus 6SET- 
TEXT«), den hochauflösenden 
Grafikmodus (SETGRAPHIC 
0«) und den Mehrfarben-Grafik- 
modus #SETGRAPHIC I1«). Der 
Textmodus wird auch mit der 
Funktionstaste fl eingeschaltet, 
während {5 die Grafik einschal- 
tet. Im hochauflösenden Modus 
kann mit f3 zusätzlich noch ein 
Textfenster eingeblendet wer- 
den, was beim Experimentieren 
mit der Turtle-Grafik recht nütz- 
lich ist. Die oberen beiden Bild- 
schirmzeilen bilden dann das 
Textfenster, mit dessen Hilfe 
man beispielsweise im Direkt- 
modus mit entsprechenden Be- 
fehlen die Turtle steuern kann. 

Geben Sie einmal im Direkt- 
modus den Befehl »CLEAR« ein 
(um den Grafikbildschirm zu lö- 
schen) und schalten Sie danach 
durch Drücken der f3Taste in 
die hochauflösende Grafik mit 
Textfenster um. Sie sehen in der 


Mitte des ansonsten leeren Bild- 
schirms ein kleines weißes Drei- 
eck, die Turtle. In der linken 
oberen Bildschirmecke blinkt 
der Cursor und zeigt damit an, 
daß die Turtle auf Befehle von 
Ihnen wartet. 


So wird die 
»Schildkröte« 
bewegt 


Geben Sie jetzt »FORWARD 
50« ein. Die Turtle bewegt sich 
damit um 50 Einheiten vorwärts 
und zieht dabei eine Linie längs 
ihres Weges. Mit »LEFT 90« er- 
reichen Sie eine Drehung der 
Turtle um 90 Grad nach links. 
Wenn Sie jetzt nochmals »FOR- 
WARD 50« eingeben, bewegt 
sich die Turtle in die neue Rich- 
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Anweisung 
DATACOLLISION n,b 
SPRITECOLLISIONn,b ___Sprite-Sprite-R Be 
für Sprite n (b wird. 1 falls & Koll 
== ‚sion, sonst ‚b=0) = 
DEFINE d,x$ Der Inhalt der Stringvariablen x$ 
. definiert ein Sprite mit ‚Defini- 
= tionsnummer d i 
IDENTIFY nd Ordnet dem mit Nummer d defi- 
ER Spell die Se uuper 
PRIORITY np Hintergrund Tara 
rn n(p=0), umgekehrt für 
= 
SPRITEBACK a,b Setztaundbals zusätzliche Far- 

\ _ ben für Multicolor-Sprites - 
HIDESPRITE n Sprite n nicht anzeigen 
SHOWSPRITE n Spritenanzeigen > 
SPRITECOLOR n.c Farbe c für Spriten wählen 
SPRITEPOSITION n,x,y Sprite n auf Position xy setzen 
SPRITESIZE n,x.y Sprite n in x- oder re 

vergrößern 
Tabelle 3. Sprite-Befehle 
tung. Soll eine Bildschirmstelle »HIDETURTLE«in Ihren Compu- 


angefahren werden, ohne eine 
Linie dorthin zu ziehen, dann 
wird mit dem Kommando »PEN- 
UP« einfach der symbolische 
Schreibstift von der Zeichenflä- 
che abgehoben. Die Turtle kann 
dann nach Belieben über den 
gesamten Bildschirm dirigiert 
werden, ohne Spuren zu hinter- 
lassen. Äber keine Angst. nach 
»PENDOWN« zeichnet sie wie- 
der. 

Wenn Sie es gerne etwas bun- 
ter hätten, bitte sehr. »PENCO- 
LOR« wählt die Schreibfarbe 
der Turtle, »BORDER« und 
»BACKGROUND« wählen Rah- 
men- und Hintergrundfarbe. Er- 
scheint Ihnen die Turtle zu qut 
genährt, dann können Sie zum 
Beispiel mit »TURTLESIZE 5« be- 
denkenlos etwas Speck entfer- 
nen. Und sollte Ihnen die Turtle 
insgesamt nicht ganz geheuer 
sein, dann tippen Sie einfach 


ter ein. Die »Schildkröte« wird 
sich daraufhin schmollend von 
der Bildfläche zurückziehen, 
aber zum Glück wird ihr Wirken 
dadurch nicht behindert: Aus 
dem Unsichtbaren befolgt sie 
weiter Ihre Befehle und zieht 
fleißig ihre Linien. 


Kleine Programme 
mit großer 
Wirkung 


Natürlich ist die Grafikerzeu- 
gung mit dieser sehr direkten 
Methode auf die Dauer ent- 
schieden zu langwierig. Wenn 
Sie das kleine Programm aus Li- 
sting 1] einmal ausprobieren, 
werden Sie feststellen, daß ef- 
fektvolle Grafikprogramme in 
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Einführung (3) 


Comal weder besonders kom- 
plex noch langsam zu sein brau- 
chen. Experimentieren Sie ru- 
hig mit ähnlichen Programmen; 
Sie werden sehr schnell ein ge- 
wisses Gespür dafür ent- 
wickeln, wie Sie durch Wieder- 
holung einfacher Grundfiguren 
mit jeweils einem etwas geän- 
derten Parameter interessante 
grafische Effekte erzielen kön- 
nen. 


Zugabe: Sprites in 
Comal 
programmiert 


Der große Vorteil der Turtle- 
Grafik gegenüber dem Zeich- 
nen von Linien nach festen Koor- 
dinatenistjageradedieerstaun- 
liche Einfachheit, mit der sich 
recht komplexe Strukturen vom 
Standpunkt der »Schildkröte« 
aus darstellen. Mit Comal kön- 
nen Sie wirklich eine »Reise 
durch die Wunderwelt der Gra- 
fik« antreten — auch ohne sich 








2pB1 
2an2 
nan3 
2218 
an22 
2932 
an4a0 
2258 


// 
// 


pencolor 1 
input " 
input " 
input " 


Abstand: 
Winkel : 
Inkrement: 


mit Bits und Bytes abzuplagen 
und mit komplizierten mathema- 
tische Formeln zu jonglieren. 
Die Turtle-Grafik ist nur dieei- 
ne Seite der grafischen Fähig- 
keiten des C 64 - Comal. Es ste- 
hen nämlich zusätzlich eine Rei- 
he von leistungsfähigen Anwei- 
sungen zur Erzeugung und Kon- 
trolle von Sprites zur Verfügung. 
Auch bei Sprites wird zwi- 
schen Hochauflösung (Hires) 
und Mehrfarbendarstellung 
(Multicolor) unterschieden. Ein 
Hires-Sprite besteht bekanntlich 
aus 24 x 2] Punkten oder aus 21 
Reihen zu je drei Byte. Bei 
Multicolor-Sprites haben wir nur 
12x21 Punkte, dafür benötigt je- 
der Bildpunkt aber intern zwei 
Bit, da vier verschiedene Far- 
ben pro Punkt möglich sind. In 
beiden Fällen kann die in einem 
Sprite enthaltene Information in 
63 Bytes dargestellt werden. Co- 
mal verwendet ein zusätzliches 
Byte, das angibt, ob es sich um 
ein Hires-Sprite (Byte 64 = 0) 
oder um ein Multicolor-Sprite 
(Byte 64 <> 0) handelt. Beide 
Spritearten werden im übrigen 


// Grafik-Demo 


print chr#(147) 


im": 
Sram": 
im": i 


abstand 
winkel 


juluFer] 
2978 
2u80 
22970 
2108 
D11D 


setgraphic 8 

while abstand“3545 do 
forward abstand 
left winkel 
abstand:=abstand+i 
endwhile 


Listing 1. Eine kleine Demonstration der Turtle Grafik 


BELEGE EEE EEE, 
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8810 // -————- 
8828 // Turtle- und Sprite-Demo 
BBOISQB // -----—---—-- 
BD40 // 
Bo5Qa // 


0858 settext 

8278 input "Rahmenfarbe: ": rahmen 
202988 border rahmen 

2298 input "Hintergrundfarbe: ": grund 
8188 background grund 

8118 setgraphic ® 

81208 dim sprite* of 63 

8158 dim ein$ of 4 

8148 // 

8152 // Turtle initialisieren 

21608 // 

2178 penup 

8188 setxy 159,160 

28198 pendown 

0288 turtlesize 18 

8218 showturtle 

8228 // 

0258 // Einfaches Sprite-Bild erzeugen 
8248 // 

8258 sprite$s:="" 

0280 ein$:=chr#(255)+chr$(B)+chr$ (255) 


0278 y:=5D 


229898 for i:=1 to 53/3 do 


0279 
083588 endfor i 
83510 7/7 


spritef:=sprite*+eins 


8328 // Zwei Sprites definieren 


8350 // 


08348 define B,sprite$s+chr$(D) 
8358 sprite$(&2) :=chr$ (255) 
8358 sprite$(2) :=chr# (255) 
0578 define 1,sprite$+chr#(®) 


B380 // 


8392 // Vier Sprites aus zwei Bildern 


8480 // 

8418 identify 8,8 
0428 identify 1,8 
8430 identify 2,1 
0448 identify 3,1 


mit völlig gleichartigen Befehlen 
angesprochen 

ZurSpriteerzeugung dient der 
Befehl »DEFINE«. Als Parameter 
wird eine Definitions-Nummer 
sowie ein String angegeben. Die 
Definitions-Nummer kann ir- 
gendeine Zahl von 0 bis 95 sein, 
denn Comal kann bis zu 96 ver- 
schiedene Spritemuster verwal- 
ten. Der anzugebende String 
muß eine Länge von 64 Zeichen 
haben und das Punktmuster des 
Sprites enthalten. Das Beispiel- 
programm in Listing 2 zeigt, wie 
man in Comal mit Sprites um- 
geht. 

Wichtig ist es, genau zwischen 
der Definitions-Nummer eines 
Sprites und der eigentlichen 
Spritenummer zu unterschei- 
den. Es können hardwarebe- 
dingt ja immer nur acht Sprites 


ınn =ıUam 


Listing 2. Turtle-Grafik und Sprites: So einfach und übersichtlich ist die Programmierung 


gleichzeitig auf dem Bildschirm 
sein. Wird die Turtle benutzt, die 
selber ein Sprite ist, dann verrin- 
gert sich diese Anzahl auf sie- 
ben. 

Mit dem »IDENTIFY«Kom- 
mando wird die Beziehung zwi- 
schenSprite-Nummer und Defini- 
tions-Nummer hergestellt. 
»IDENTIFY 1,30« bewirkt bei- 
spielsweise, daß das Sprite mit 
der Definitions-Nummer 30 als 
Sprite 1 auf dem Bildschirm dar- 
gestellt wird. So kann sehr 
schnell zwischen verschiede- 
nen Sprites umgeschaltet wer- 
den, was zur Erzeugung von zei- 
chentrickähnlichen Effekten be- 
nutzt werden kann. 

Wie aus Tabelle 3 zu ersehen 
ist, gibt eseine Vielzahl von wei- 
teren Comal-Befehlen speziell 
zur Sprite-Kontrolle. Die Wir- 


BBEB endproc bewegung 


kungsweise solcher Änweisun- 
gen wie »SPRITECOLOR« oder 
»SPRITEPOS« dürfte wohl jedem 
verständlich sein, dersichschon 
einmal von Basic aus aan die Spri- 
teprogrammierung gewagt hat. 


Comal oder Basic? 


Wie die drei Folgen unserer 
kleinen Comal-Einführung hof- 
fentlich gezeigt haben, hat Co- 
mal dem Commodore V.2-Basic 
einiges voraus. Die von Pascal 
entlehnte Programmstrukturie- 
rung mittels Prozeduren und die 
aus Logo stammende Turtle- 
Grafik haben sich mit dem aus 
Basic übernommenen Konzept 
einer benutzerfreundlichen, in 
teraktiven Programmiersprache 


8458 // 
8469 // Spritefarbe setzen 
8470 // 
28488 spritecolor 8,8 
8498 spritecolor 1,2 
85028 spritecolor 2,7 
8518 spritecolor 3,1 
85298 // 
8558 // Demo laeuft bis Taste gedrueckt wird 
8548 // 
8558 repeat 
08558 pencolor rnd(®,15) 
2578 bewegung 
8582 penup 
8598 right 45 
B608 forward 88 
8518 pendown 
28528 until key$<>chr$(8) // Taste gedrueckt ? 
BE30 // = 
0858408 // Sprites und Turtle bewegen 
B&5B // 
2588 proc bewegung 
8678 // 
28588 // Spritegroesse zufaellig aendern 
06598 // 
872828 spritesize Q,rnd(8,1),rnd(8,1) 
8718 spritesize 1,rnd(8,1),rnd(8,1) 
8728 spritesize 2,rnd(8,1),rnd(8,1) 
8738 spritesize 5,rnd(8,1),rnd(8,1) 
8748 for x:=1 to 788 step 5 do 
0759 /l 
8758 // Turtle bewegen 
0770 /ıl 
0788 left 88 
287978 forward 58 
2392 71 
8818 // Sprites bewegen 
0828 /1 
2850 spritepos B,x,y 
0640 spritepos 1,308-x ,y+50+x/3 
8858 spritepos 2,x,y+58+x/3 
8888 spritepos 3,388-x,y 
08872 endfor x 


zu einer gelungenen Synthese 
zusammengefügt. Die hier be- 
sprochene Comal-Version 0.14 ist 
dabei nur aalseine Art Vorabver- 
sion zu werten. Eine nochmals 
wesentlich erweiterte und ver- 
besserte Version 2.0 wird von 
Commodore Dänemark bereits 
als Steckmodul (64 KByte ROM, 
30 KByte RAM frei) vertrieben 
Es ist zu hoffen, daß auch Com- 
modore Deutschland diese zu- 
kunftsweisende Programmier- 
sprache bald anbieten wird.(ev) 
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In der vorangegangenen Ausgabe haben wir die relative und die 





Zeropage-Adressierung kennengelernt. Heute kommt die indizierte Adressierung 
dran und natürlich sehen wir uns wieder einige neue Assembler-Befehle an. 
Wir werden uns einige Gedanken machen über die sogenannten 
Fließkommazahlen und den Basic-Befehl USR. Auch die Speicherorganisation 
unseres Computers soll uns nochmal beschäftigen. 


unächst die indizierte Ädres- 

sierung. Indizieren heißt, et- 
was mit einem Index, also einem 
Zeichen oder einer Nummer, zu 
versehen. Beispielsweise be- 
zeichnet man in der Mathematik 
die beiden Lösungen einer qua- 
dratischen Gleichung häufig als 
Xlund X2. Dabei ist dann die Zif- 
fer (l oder 2) der Index und X ist 
eine indizierte Größe. Man geht 
also aus von einer festgelegten 
Grundmenge (Lösungsmenge 
X) und trifft durch den Index ei- 
ne weitere Unterscheidung. 

So ähnlich können wir uns 
auch die Funktion der indizier- 
ten Adressierung bei der As- 
sembler-Programmierung vor- 
stellen. Nehmen wir als Beispiel 
den Befehl 
LDA 1500,X 

Man spricht hier von einer 
absolut-X-indizierten Adressie- 
rung. Das Assemblerwort LDA 
ist uns bekannt: Lade den Akku. 
Woher soll der für den Akku be- 
stimmte Inhalt geholt werden? 
Aus der Speicherzelle, die sich 
durch 1500 plus Inhalt des X- 
Registers ergibt. Steht also im X- 
Register zum Zeitpunkt des Be- 
fehlsaufrufes eine 5, dann wird 
der Akku aus Speicherzelle 
1500+5, also 1505, geladen. Das 
X-Register kann Werte von 0 bis 
SFF (dez. 255) enthalten. Die 
Ähnlichkeit sieht also so aus: 

Aus einer Gesamtmenge von 
256 Adressen, die durch die An- 
fangsadresse (bei unserem Bei- 
spiel 1500) und die möglichen 
256 Belegungen des X-Registers 
festgelegt sind (die Grundmen- 
ge), werden je nach X-Register- 
inhalt einzelne Adressen unter- 
schieden und adressiert. Das X- 
Register fungiert dabei als ein 
Index, weswegen man auch oft 
die Bezeichnung »Index-Regi- 
ster X« in der Literatur findet. 

Ebenfalls als Index-Register 
kann das Y-Register dienen, was 
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Befehl Indizierte Adressierung 
absolut Null-Seite-absolut 
x > x > f 
_ Folge 2 
LDA + - * _ 
LDX _ + _ + 
 LDY + _ + _ 
STA + + + _ 
STX - - - + 
STY _ _ + _ 
RTS 1 / / / 
Folge 3 
INX / / / 1 
INY / / / / 
_ INC + _ + _ 
DEX / / / / 
DEY / / / / 
DEC + _ + - 
SED / E): / / 
CLD =: % / / 
BNE 4 / / / 
Folge 4 
ADC + + + _ 
CLC / / / / 
SBC + + + _ 
SEC 7 / 7 / 
. BEQ / 7 1 / 
. BCC / / / 1 
BCS El: H / / 
BMI / / / / 
 BPL / 7 / % 
BVC / 7 / I 
BVS / / / / 
Folge 5 
CMP + + eu 
CPX _ _ _ _ 
CcPY _ _ _ _ 
 Folge6 
‚BIT = — - = 
CV / / / / 
NOP / / / 1 
TAX / / / / 
TAY / / / / 
TXA / / / / 
TYA / / / / 
IMP = = = 
JSR — — — =, 
+ anwendbar 
- nicht erlaubt 
/ weder absolute noch Zeropage-Adressierung 
möglich 


Tabelle 1. Anwendbarkeit der indizierten Adressierungsarten auf die bisher gelernten 
Assembler-Befehle. 


zum Beispiel zum Befehl 

LDX 1500,Y 

führen kann. Dies ist dann eine 
absolutYindizierte Adressie- 
rung. 


Genauso wie man die normale 
absolute Adresse (also zum Bei- 
spiel 1500) als Basis der Indizie- 
rung durch das X- oder das Y- 
Register verwenden kann, ist 
das auch mit eine Zeropage- 
Adresse möglich. So gibt eszum 
Beispiel die Befehle 
LDY 2B,X 
oder 
STX 19Y 

Man nennt diese Ärt der 
Adressierung dann Zeropage- 
absolut-X-indiziert beziehungs- 
weise Yindiziert. 

Weil die Zeropage aber nur 
256 Adressen umfaßt, anderer- 
seits jedoch die Indexregister 
auch 256 Werte annehmen kön- 
nen, kann es geschehen (wenn 
man nicht aufpaßt), daß die Sum- 
me aus der Basisadresse (zum 
Beispiel $2B) und dem Indexre- 
gisterinhalt größer als 256 wird 
Wenn zum Beispiel in dem Be- 
fehl 
LDA FE,X 
der X-Registerinhalt 2 beträgt, 
ergäbe sich $FE+$02=$0100. In 
diesem Fall wird aber nicht der 
Inhalt von $0100 in den Akku ge- 
laden, sondern der Befehl 
spricht die Speicherstelle $00 
an. Der Grund dafür liegt in der 
Tatsache, daß unser Prozessor 
den Befehl als 2-Byte-Befehl in- 
terpretiert — das 2. Byte ist die 
Zeropageadresse, die sich als 
Summe ergibt — und deswegen 
nur das LSB der Adresse beach- 
tet. Von $0100 ist das LSB aber 
$00. Mit anderen Worten: Die 

Zero-page-absolut-indizierten 
Befehle lassen einen Zugriff nur 
auf die Zeropage selbst zu. Die- 
ses Verhalten muß man beim 
Programmieren beachten. 
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Wir wollen nochmal zusam- 
menfassen. Vier neue Adressie- 
zungsarten haben wir kennen- 
gelemt: 


ıe Verwendung des Y-Regı- 
sters als Indexregister ist stark 
eingeschränkt. Nur bei wenigen 
Befehlen ist sie erlaubt (tatsäch- 
lich nur LDX und STX bei Zero- 
page-absolut-indizierter Adres- 
sierung). In der Tabelle | sehen 
Sie, welche bisher behandelten 
Befehle wie mit der indizierten 
Adressierung verwendet wer- 
den dürfen. 

Es gibt noch zwei weitere Ar- 
ten einer indizierten Adressie- 
rung, auf die wir noch zu spre- 
chen kommen werden. 

Einige Nachzüglicher: Die Befehle BIT, 
CLV, NOP und TAX, TAY, TXA, TYA 

Wir wollen noch ein bißchen 
aufräumen: Ein paar Befehle, 
die bisher zu keinem Gebiet so 
richtig paßten, sollen jetzt be- 
handelt werden. 

BIT: Dieser Befehl heißt »Bit- 
Test« und paßt von daher eigent- 
lich zu den in der letzten Ausga- 
be behandelten Vergleichsbe- 
fehlen. Die Behandlung der 
Flaggen ist aber völlig anders. 
Nehmen wir das Beispiel 
BIT 1500 

Folgendes passiert: Der Inhalt 
der Speicherstelle $1500 wird 
mit dem Inhalt des Akku UND- 
verknüpft, das Ergebnis in der 
Z-Flagge angezeigt und Bit 7 so- 
wie Bit 6 von $1500 in die N- be- 
ziehungsweise die V-Flagge 
übertragen. Weder Akku noch 
der Inhalt von $1500 verändern 
sich dabei. 

Das ging ein bißchen holterdi- 
polter. Sehen wir uns das jetzt 
mal ganz langsam Schritt für 
Schritt an! Zunächst die UND- 
Verknüpfung. Bit für Bit wird der 
Akku-Inhalt mit dem Inhalt der 
adressierten Speicherstelle 
UND-verknüpft. Dabei gelten 
folgende Regeln (die Leser der 
Grafik-Serie kennen das ja 
schon): 

OUNDO=0 
0OUND!=0 
1UNDO0=0 
1UND!=1 

Nur dann also, wenn die ent- 
sprechenden Bits im Akku und 
in 1500 gleich 1 sind, ergibt sich 
bei der UND-Verknüpfung eine 
1. Man stellt sowas meist in einer 
sogenannten Wahrheitstabelle 
zusammen (Tabelle 2). 


Tabelle 2. Wahrheitstabelle der logi- 
schen Verknüpfung UND 
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Nehmen wir als Beispiel mal 
an, im Akku stünde $0A und in 
der Speicherstelle $1500 wäre 
$09 enthalten. Die UND-Ver- 
knüpfung sieht dann so aus: 
Akku $0A 0000 1010 
1500 $09 0000 1001 


UND 
0000 1000 

Das Ergebnis ist also $08. In 
der Z-Flagge wird in dem Fall, 
daß das Ergebnis der UND-Ver- 
knüpfung ungleich Null ist (wie 
hier) eine Null angezeigt, sonst 
eine |. 

Wir haben in unserem Zahlen- 
beispiel mit dem BIT.Beiehl 
überprüft, ob die Bits 1 und 3in 
Speicherstelle $1500 gelöscht 
sind. Dazu haben wir in den Ak- 
ku eine sogenannte Maske (hier 
also$0A) geladen. DasErgebnis 
sagt uns, daß nicht beide Bits ge- 
löscht waren. Wäre der Inhalt 
von $1500 beispielsweise $10 ge- 
wesen (0001 0010), hätten wir in 
der Z-Flagge eine 1 gefunden. 
Daher der Name »Bit-Test« 
Durch geeignete Maskenwahl 
kann praktisch jedes Bit über- 
prüft werden. Dabei werden we- 
der der Akku-Inhalt noch der In- 
halt der angesprochenen Spei- 
cherstelle verändert. 

Der BIT-Befehl hat aber noch 
mehr Auswirkungen: Die Bits 6 
und 7 der geprüften Speicher- 
zelle findet man nach Befehls- 
ausführung in zwei Flaggen 
nochmal: 

Bit 7 in der N-Flagge 
Bit 6in der V-Flagge 

Damit kann man beispielswei- 
se überprüfen, ob sich am 
adressierten Ort eine negative 
Zahl befindet. Alle drei Flaggen 
können ja nun mit den Branch- 
Befehlen abgefragt werden. Sie 
erkennen sicherlich schon, wie 
vielseitig dieser merkwürdige 
BIT-Befehl einsetzbar ist. 

Adıessierbar ist BIT entweder 
absolut (wie im obigen Beispiel) 
oder Zeropage-absolut. Je nach- 
dem liegt er dann als 3-Byte- 
oder als 2-Byte-Befehl vor. 


CLV: Dieser Befehl heißt »clear 
overflow-flag«, also »lösche die 
Überlauf-Flagge«. Die V-Flagge 
war — wie Sie sich erinnern wer- 
den — unsere rote Ampel bei 
Rechenoperationen (siehe Aus- 
gabe 12/84, S. 135). Es ist ein 
l-Byte-Befehl mit impliziter 
Adressierung und interessant 
daran ist, daß es keinen Befehl 
gibt, der das Gegenteil — also 
das Setzen der V-Flagge — be- 
wirkt. 

NOP: NOP steht für »no opera- 
tion«, was bedeutet »keine Tätig- 
keit«. Dasist der Nichtstu-Befehl. 
Er tut aber doch etwas: Er sorgt 
dafür, daß der Befehlszähler 
weitergezählt wird und bewirkt 
eine Verzögerung von 2 Taktzy- 
klen. NOP ist ein I-Byte-Befehl 
mit impliziter Ädressierung. Er 
wird in fertigen Programmen 
nur selten verwendet: Zur Erzeu- 
gung einer kurzen definierten 


Verzögerung. Meist gebraucht 
man ihn bei der Erstellung eines 
Programmes als Platzhalter 
oder bei der Fehlersuche, um 
zum Beispiel unerwünschte 
Sprünge zu ersetzen. 

Die Transporteure: TAX, TAY, TXA und 
TYA 

Ab und zu ist es nötig, Regi- 
sterinhalte untereinander auszu- 
tauschen. Viele Dinge (Addition, 
Subtraktion und so weiter) kön- 
nen nur im Akku geschehen. 
Wenn wir eine solche Operation 
beispielsweise mit dem Inhalt 
des X-Registers ausführen wol- 
len, verschieben wir diesen In- 
halt mit dem Befehl TXA. Trans- 
fer X into accumulator« also 
»übertrage X-Register in den 
Akku« bedeutet das. Analog 
verwendet man TYA, um Y-Regi- 
ster-Inhalte in den Akku zu 
schieben oder für den umge- 
kehrten Weg TAY beziehungs- 
weise TAX (Akkuinhalt ins Y- be- 
ziehungsweise ins X-Register 
schieben). Genau genommen 
wird nicht übertragen, sondern 
nur kopiert: Die Register, ausde- 
nen verschoben wird, bleiben 
unverändert. Weil die jeweili- 
gen Zielorte der Verschiebung 
(Akku, X- oder Y-Register) vom 
neuen Inhalt überschrieben 
werden, können sich auch Flag- 
gen ändern. Betroffen sind von 
dieser Möglichkeit die N- und 
die Z-Flagge. Alle vier Befehle 
bestehen aus einem Byte und 
können natürlich nur implizit 
adressiert werden. 

So springen die Assembler-Alchimisten: 
JMP, JSR 

JMP und JSR entsprechen un- 
gefähr den vom Basic her be- 
kannten Befehlen GOTO und 
GOSUB. 

JMP kommt von »jump to ad- 
dress«, also »springe zur ange- 
gebenen Ädresse«. Nehmen wir 
uns wieder ein Beispiel vor: 
JMP 1500 
bewirkt einen Sprung zur Adres- 
se 1500. Das funktioniert so: In 
den Programmzähler werden 
LSB und MSB der Zieladresse 
geladen. Das war dann auch 
schon der Sprung, dennder Pro- 
grammzähler ist der Pfadfinder 
des Computers: Die Adresse, 
die dort steht, wird als nächste 
bearbeitet. Schalten Sie doch 
mal den SMON ein (oder einen 
anderen Monitor) und sehen Sıe 
sich das mit folgenden Befehlen 


an: 
1400 JMP 1500 
Dort unterbrechen wird den 
Computer rnit 
1500 BRK 

So weit, so gut: Wir starten mit 
dem SMON-Kommando G 1400 
und erhalten eine Registeranzei- 
ge mit dem Programmzähler- 
stand 1501. Genau das hätten wir 
ja erwartet. 

Weniger durchschaubar ist 
das folgende Beispiel: 
1400 LDA #00 
1402 LDX #16 


1404 STA 1300 

1407 STX 1301 

140A JMP (1300) 

Dazu gehört dann noch die Pro- 
grammzeile: 

1600 BRK 


Wenn Sie das genauso einge- 
geben haben und dann mittels 
G 1400 starten, erhalten Sie eine 
Registeranzeige mit dem Pro- 
grammzählerstand 1601. 


Schon an der neuen Schreib- 
weise des Ärgumentes in Zeile 
140A werden Sie bemerkt ha- 
ben, daß hier nicht mehr die nor- 
male absolute Adressierung wie 
zuvor angewendet wird. Dies ist 
eine neue Form: Die: indirekte 
Adressierung. Indirekt deswegen, 
weil wir nicht mehr direkt die 
Zieladresse angeben, sondern 
einen sogenannten Vektor. Ein 
Vektor besteht aus zwei aufein- 
ander folgenden Speicherzel- 
len (hier also 1300 und 1301), die 
inder Form LSB/MSB die eigent- 
liche Zieladresse enthalten. Das 
LSB von $1600 ist $00. Das haben 
wir über den Akku nach $1300 
geladen. Das MSB $16 kam 
durch das X-Register an seinen 
Platz $1301: 


Zieladresse 16 00 
MSB LSB 
1 t 

Vektor 1301 1300 


Das ist die Methode der toten 
Briefkästen, die in Kreisen der 
Assembler-Alchimisten anschei- 
nend genauso beliebt ist wie bei 
Agenten. So wie diese im hohlen 
Baum die Treffpunktanschrift 
hinterlegt finden, verläßt sich 
unser Computer auf die Spei- 
cherstellen 1300 und 1301 für die 
Angabe der Zieladresse. 

Diese Art der Ädressierung ist 
im wahrsten Sinn des Wortes ein 
Unikum: Es gibt sie nämlich nur 
für den JMP-Befehl! Davon wird 
allerdings dann auch recht häu- 
fig Gebrauch gemacht, zum Bei- 
spiel im Betriebssystem unseres 
Computers. Aber darüber und 
über die Vektoren, die dazu ver- 
wendet werden, soll ein ander- 
mal berichtet werden. 

Wir dürfen nämlich nicht den 
anderen Sprungbefehl JSR verges- 
sen. JSR steht für »jump to sub- 
routine«, was eingedeutscht et- 
wa bedeutet »springe zum Un- 
terprogramm«. Genauso wie in 
Basic Unterprogramme durch 
GOSUB (Zeilennummer) aufge- 
rufen werden, kann das auch 
hier geschehen durch JSR 
Adresse. Hier ist nur die absolu- 
te Adressierung möglich. Das 
erste Beispiel soll uns zeigen, 
wie dieser Befehl funktioniert: 
1400 JSR 1500 
Dort soll dann erstmal stehen: 
1500 BRK 

Noch nicht starten!! Zunächst 
einmal verzeihen Sie mir diese 
ProgrammiererTodsünde: Aus 
einem Unterprogramm heraus 
den Programmablauf zu been- 
den! Ich werd's auch nie wieder 
tun. Hier geschieht das nur zu 
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Lehrzwecken. Was läuft ab: Der 
Programmzählerinhalt plus 2 
wird auf den Stapel gelegt und 
dann die Adressse 1500 in den 
Programmzähler geladen. 
Ebenso kurz wie unklar! Was ist 
denn ein Stapel? Also langsam, 
Schritt für Schritt. 

Der Sinn von Unterprogram- 
men ist ja, daß der Computer 
nach Ende der Bearbeitung wie- 
der ins aufrufende Hauptpro- 
gramm zurückkehrt. Ermußsich 
aber dazu irgendwo merken, 
von wo aus er zum Unterpro- 
gramm gesprungen ist. Dazu 
verwendet er den Stapel. Das ist 
ein Speicherbereich ($0100 bis 
SOIFF), der direkt vom Prozessor 
aus verwaltet wird. Die genaue 
Architektur und Handhabung 
dieses »Prozessor-Stack« wer- 
den wir noch in einer späteren 
Folge kennenlernen. Uns soll 
hier nur interessieren, daß esei- 
nen Zeiger gibt, der auf den 
nächsten freien Platz im Stapel 
weist und daß dieser Speicher 
vonoben nach unten gefüllt wird 
(wie in Basic bei den Strings). 
Wenn Sie mit Hilfe des SMON 
mal in den Stapel hineinsehen 
wollen, dann geben Sie doch 
mal ein M 0100 0IFF. Was nun ge- 
nau bei Ihnen drin steht, ist sehr 
von der vorherigen Nutzung Ih- 
res Computers abhängig. Der 
Mikroprozessor nutzt den Stapel 
bei sehr vielen Tätigkeiten. Es 
kommt auch nur aufden Teildes 
Stapels an, der durch den Sta- 
pelzeiger als gefüllt bezeichnet 
wird. Der Stapelzeiger wird 
beim SMON in der Registeran- 
zeige alsSP angezeigt. Wenn Ihr 
Stapelzeiger (prüfen Sie das 
doch mal durch Eingabe von R) 
nun zum Beispiel F6 zeigt, dann 
bedeutet das, daß alle Stapel- 
plätze von $0IF6 an abwärts frei 
und die oberhalb bis $OIFF be- 
setzt sind. Beim Nachsehen mit 
MOIFOOIFF finden Sie dann bei- 
spielsweise: 

:0ıf0 20 00 20 AA C1 FA _C0 46 
ır8 EI EI AT AT 79 Ab IC E3 

Die Speicherstelle, auf die der 
Stapelzeiger weist, ist unterstri- 
chen. Nun starten wir mit G 1400 
unser kleines verbotenes Test- 
programm. Es meldet sich die 
Registeranzeige. Im Stapelzei- 
ger steht jetzt F4 (oder eben Ihr 
vorhergegangener SP minus 2). 
Wenn wır nun wieder ım Stapel 


nachsehen mit M OIFO OIFF.: 


dann finden wir im Gegensatz 
zur obigen Änuzeige nun: 
:0FO 20 AA CI FA CO 02 14 46 
a Ri 
ar € AT AT 79 A6 96 E3 
Unterstrichen ist wieder das 
Ziel des Stapelzeigers, der jetzt 
zwei Plätze weitergerückt ist, um 
der durch Pfeile gekennzeich- 
neten Adresse 1402 (als 
LSB/MSB) Raum zu schaffen. 
$1402 ist das letzte Byte des JSR- 
Befehls. Wie wir den Programm- 
zähler kennen, ist er im allge- 
meinen immer einen Schritt vor- 
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aus. Hier liegt er aber einen zu- 
rück, falls er nach Beendigung 
des Unterprogrammes an der 
notierten Adresse weitermacht. 
Dazu kommen wir gleich noch. 
Was wir am Programmzähler 
aber auch noch nach Äblauf un- 
seres kurzen Beispielprogram- 
mes ablesen können, ist die Tat- 
sache, daß die Sprungadresse 
1500 inihn geschrieben wird, so- 
mitder Sprung dannalso stättge- 
funden hat. 

Nun bauen wir das kleine Pro- 
grämmchen etwas um: 

1400 JSR 1500 

1403 BRK 

Das Unterprogramm sollnur aus 
dem Rücksprung bestehen: 
1500 RITS 

Verlangen Sie nun noch vor 
dem Start eine Registeranzeige 
mit R und merken Sie sich den 
Wert des Stapelzeigers. Dann 
starten Sie das Programm mit G 
1400 und achten Sie auf die neue 
Registeranzeige. Zwei Dinge in- 
teressieren uns: 

l) Der Wert des Stapelzeigers ist 
unverändert geblieben. 

2) Der Programmzähler weist 
nun auf $1404. 

Wenn Sie nun nochmal mit 
dem M-Befehl desSMON in den 
Stapel sehen, werden Sie unter 
Umständen zwar noch die 
Adresse 1402 dort finden (dann 
nämlich, wenn wir den Stapel 
seit dem letzten Programm nicht 
verändert haben). Wie Sie aber 
inzwischen wissen, hätte durch 
den neuen JSR-Befehl nochmal 
1402 dort eingetragen sein müs- 
sen. Das stand da auch einige 
Mikrosekunden lang... bis der 
RTS-Befehl wirksam wurde. RTS 
macht ziemlich viel: 

I)RTSholt die aufdem Stapel ge- 
speicherte Adresse ab, und 
schreibt sie in den Programm- 
zähler. 

2)RTS vermindertdabeiden Sta 
pelzeiger um 2. 

3 RTS addiert zum Programm- 
zähler eine |. 

Deswegen kann das Pro- 
gramm also bei $1403 weiterlau- 
fen und der Programmzähler 
nun hinter dem BRK-Befehl ste- 
hen. 

Machen Sie doch mal etwas 
anscheinend total Verrücktes: 
Starten Sie mit G 1500. Es gibt da 
zwei Möglichkeiten, was ge- 
schehen kann: Entweder stand 
da noch vom ersten unterbro- 
chenen Testprogramm die 
Adresse 1402. Dann endete nun 
alles mit einer Registeranzeige, 
bei der der Stapelzeiger um 2 
höher gerutscht ist. 

Oder da stand diese Adresse 
nicht mehr. Dann befinden Sie 
sich nun wieder im Basic. Wieso 
eigentlich? Als nächste Adresse 
finden Sie auf dem Stapel SEI46 
(dez.57670). Diese Adresse + ] 
wird ja durch RTS in den Pro- 
grammzähler gerufen. Ein 
Sprung an diese Ädresse ist ein 
Sprung in ein Programm des Be- 


triebssystems. Haben Sie ein 
ROM-Listing? Dann sehen Sie 
mal nach: Dort steht der Be- 
fehl... RTS. Dieses neuerliche 
RTS holt nun jedenfalls die näch- 
ste Adresse vom Stapel: $ATE9 
(dez.42985). Diese Adresse + ] 
im Programmzähler führt unse- 
ren Computer in die Basic- 
Interpreter-Schleife, also ins Ba- 
sic zurück. 

Wir haben so viel über den 
Stapel gehört, daß wir JSR fast 
schon wieder aus den Äugen 
verloren haben. Deswegen 
nochmal eine kurze Übersicht: 
a) JSR speichert den Programm- 
zählerwert des letzten Bytes des 
Befehls auf dem Stapel 
zum Beispiel 1402 
b) stellt dabei den Stapelzähler 
um'2 zurück 
zum Beispiel von $F6 nach $F4 
c)schreibt in den Programmzäh- 
ler die angegebene Ziel- 
adresse, 
zum Beispiel 1500 
d) Das Unterprogramm wird ab- 
gearbeitet bis der RTS-Befehl 
auftaucht. 

e) Dann wird die gemerkte 
Adresse +1 in den Programm- 
zähler geschrieben 

zum Beispiel 1402+1=1403 

fi) und dabei der Stapelzähler 
wieder um 2 erhöht, 

zum Beispiel von $F4 wieder zu 
SF6 

0) Das Programm läuft nun wie- 
der nach dem JSR-Befehl weiter, 
zum Beispiel also bei 1403, 

Nun sollte eigentlich auch klar 
sein, warum ein Äussprung aus 
einem Unterprogramm oder ein 
Abbruch im Unterprogramm ei- 
ne ProgrammiererTodsünde ist: 
Der Stapelzeiger wird nicht zu- 
rückgestell. Die gemerkte 
Rücksprungadresse versauert 
allmählich auf dem Stapel. Noch 
schlimmersindsolche Sachen in 
einer Schleife, wo mehrfach aus 
dem Unterprogramm ausgebro- 
chen wird: Hier ist der Stapel 
bald voll Müll und der Compu- 
ter beendet seine Zusammenar- 
beit mit dem Programmierer. 
Weil aber Basic-Programme 
nichts anderes sind als eine Fol- 
ge von Maschinenprogrammen, 
die je nach Befehl durch den In- 
terpreter aneinandergereiht 
werden, ist das auch in Basic ei- 
ne Todsünde. Wir wollen aber 
nicht so hart mit uns umgehen: 
Wenn wir gelernt haben, wie 
man mit speziellen Assembler- 
Befehlen im Stapel herumschau- 
feln kann, dann haben wir bei 
richtiger Anwendung von vorne- 
herein Jedenfalls ın diesem 
Punkt die Absolution erhalten. 


Alles fließt: 
Fließkommazahlen 


jeder, der tiefer in die Ge- 
heimnisse der Ässembler-Alchi- 
mie eindringen will, muß sich 





vertraut machen mit der häufig- 
sten Ärt der Zahlenverarbeitung 
in unserem Computer. Das ist 
die Handhabung von Fließkom- 
mazahlen (auch Gleitkomma- 
zahlen genannt). Wir werden da- 
zu folgende Fragen zuklären ha- 
ben: 

I) Was sind Fließkommazahlen? 
2) Wie sehen sie im binären Zah- 
lensystem aus? 

3) Wie behandelt unser Compu- 
ter positive und negative Fließ- 
kommazahlen? 

4) Wie können wir als Program- 
mierer Einfluß nehmen auf die 
Verarbeitung dieser Zahlen im 
Computer? 

Die Behandlung dieser vier 
Fragen wird unseine ganze Wei- 
le beschäftigen. Fangen wir mit 
der ersten an: In Standardwer- 
ken der Mathematik werden Sie 
lange suchen müssen, um den 
Begriff »Fließkommazahle zu fin- 
den. Im deutschen Sprachraum 
gibt es häufiger die Bezeich- 
nung »wissenschaftliche Zahlen- 
darstellung«. Das klingt sehr 
hochgestochen und ist eigent- 
lich ganz einfach. Leser der 
Grafik-Serie werden sich viel- 
leicht noch erinnern: Die Zahl 
1000 kann man auf verschiedene 
Weise darstellen: 

1000 = 10 * 10 * 10 = 1013ect. 

Die hochgestellte Zahl (in 
Computerschreibweise: Die 
Zahl hinter dem Hochpfeil) ist 
hier gleich der Anzahl der Stel- 
len minus | (1000 hat vier Stellen, 
also ist die Hochzahl eine3). Die- 
se Hochzahl nennt man Expo- 
nent(vom lateinischen exponere 
= anzeigen, herausheben). Neh- 
Den wir nun einige andere Zah- 

en: 
200 = 2 * 100 = 2 * 1012 


oder 
2500 = 2,5 * 1000 = 2,5 * 1013 
Ich glaube, jetzt beginnt es Ih- 


nen klarzuwerden, daß man auf 
diese Art wohl alle Zahlen ir- 
gendwie darstellen kann. Man 
dröselt die Zahlen auseinander, 
bildet ein Produkt, von dem der 
eine Multiplikator durch 10 teil- 
bar ist (durch die Basis unseres 
normalen Zahlensystems). Ge- 
nauer gesagt: Ein Faktor (also in 
den Beispielen 1000 oder 100) ist 
darstellbar als Potenz von 10. 
Der andere Faktor (in den Bei- 
spielen l oder 2 oder 2,5) wird 
Mantisse (vom lateinischen ma- 
niissa = Zugabe, Anhang, 
Schleppe) genannt. Sehen wir 
uns nochmal 2500 an: 


2.5* 1013 
25 + 1012 
- 250*1011 
= 2500 * 1010 


250 = 25*100 = 
25* 100 
- 250* 10 


-2500* | 


Das letzte war nur der Voll- 
ständigkeit halber, dennirgend- 
eine Zahl hoch 0 ist immer |. 
Man kann auch aus der 2500 fol- 
gendes machen: 


Runen R- am.L._... ıinar 
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2500 = 0,25 *10000 = 0,25* 1014 

oder = 0,025 * 100000 = 0,025 * 1015 

und so weiter. Oder anders 

herum: 

350 = 25000*01 = 25000 * 101-1 
= 250000 * 0,01 = 250000 * 101-2 

und so weiter. 

Dabei bedeutet: 

101—2 = 1/1012 = 0,01 

Man kann sich das merken, in- 
dem man die Anzahl der Stellen 
zählt, um die man das Komma 
verschiebt. Diese Anzahl ad- 
diert man dann zur Hochzahl. 
Zur Erläuterung: 

0,12345 = 1,2345 * 101—1 

Wir haben das Komma um ei- 
ne Stelle nach rechts gerückt, 
weshalb wir die Hochzahl —ı 
schreiben müssen (vorher war 
danämlich unsichtbar die Hoch- 
zahl 0: und 1010=!|]). 

0,12345 = 123,45 *# 101—3 

Hier wurde das Komma um 
drei Stellen nach rechts ver- 
schoben. Daher der Exponent 
—3. Sie sehen folgenden Zusam- 
menhang: 

Komma eine Stelle nach rechts 
verschoben: Exponent + (—). 
Zum Beispiel 
0,1234*101—2 = 1,234*101—3 

Komma eine Stelle nach links 
verschoben: Exponent +1. 
Zum Beispiel 
3,14*1012 = 0,314*1013 

Verstehen Sie nun, warum 
man diese Art der Zahlendar- 
stellung Fließkomma- oder 
Gleitkommazahlen nennt? 

Vielleicht sehen Sie aber noch 
nicht den Sinn der Fließkomma- 
zahlen ein. Dazu gebe ich Ihnen 
zwei einsichtige Beispiele. Der 
Atomkern eines Heliumatoms 
wiegt etwa (halten Sie sich fest): 
0,000 000 000 000 000 000 000 000 
006 643 ka. 

Sehr unbequem, diese ganzen 
Nullen immer mitzuschleppen. 
Wir verschieben deshalb das 
Komma um 27 Stellen nach 
rechts und schreiben dann 
6,643*101—27 ka. 


2. Beispiel: Wir haben einen 
Ballon mit diesem Gas gefüllt. 
Bei normalen Temperatur- und 
Luftäruckbedingungen befin- 
den sich in einem Kubikzentime- 
ter im Ballon ungefähr (nochmal 
festhalten!): 

26 900 000 000 000 000 000 He- 
liumatome 

Wieder eine recht unange- 
nehme Nullschlepperei. Wir 
verschieben das Komma um 19 
Stellen nach links und erhalten 
2,69*10119 Heliumatome. Fein, 
nicht wahr! 

Abgesehen von der höheren 
Bequemlichkeit: Der Computer 
müßte allerhand Speicherplatz 
zur Handhabung der vielen Nul- 
len bereitstellen. Mit BCD- 
Zahlen könnten wir zwar jede 
Zahl erfassen, hätten aber im- 
mer unterschiedlich viele Bytes 
zu verarbeiten. Wenn wir Fließ- 
kommazahlen verwenden, kön- 
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nen wir — wie Sie noch sehen 
werden — jede (na sagen wir 
mal: fast jede) Zahl in der glei- 
chen Anzahl Bytes aufbewah- 
ren. 

Vom Basic her kennen Sie 
Fließkommazahlen auch (hier 
wird das Komma allerdings 
durch den Punkt ersetzt, ent- 
sprechend der angloamerikani- 
schen Schreibweise). Das sind 
die, wo man zum Beispiel 
schreibt 6.02E23 oder 6.02E +23, 
was dann bedeutet 6,02#10123.E 
steht dort für Zehnerexponent. 
Durch die Art, wie Fließkomma- 
zahlen im normalen Computer- 
dasein gespeichert werden, er- 
geben sich obere und untere 
Grenzen. Die höchste in Basic 
verarbeitbare Zahl im C 64 ist 
+1.70141183*10E38 

Größere Zahlen verursachen 
in Basic einen OVERFLOW ER- 
ROR. Was in Maschinensprache 
mit größeren Zahlen geschieht, 
ist weitgehend unsere Sache. 
Die dem Betrag nach kleinste 
verarbeitbare Zahl ist 
+ 2.93873588*10E—39 

In Basic arbeitet bei Unter- 
schreitung der Computer ein- 
fach mit einer Null weiter. Für 
die Behandlung in Maschinen- 
sprache sind ebenfalls wir als 
Programmierer verantwortlich. 

Für diesmal sei's genug der 
Zahlenspiele: In der nächsten 
Ausgabe werden wir uns weiter 
mit Fließkommazahlen befas- 
sen. 


Die USR-Funktion 


Wieder einmalsoll uns das Zu- 
sammenspiel von Basic und Ma- 
schinensprache beschäftigen. 
Einen Aufruf von Maschinenrou- 
tinen — nämlich den mit SYS — 
haben wir schon kennengelernt. 
Wir POKEten die zu übergeben- 
den Werte an die Abrufspei- 
cherstellen. Bei diesen Werten 
hat essich um einfache Integer- 
zahlen gehandelt, zum Beispiel 
die Anzahl der Glieder einer zu 
summierenden arithmetischen 
Reihe. Was tun wir aber, wenn 
wir Fließkommavariable an ein 
Maschinenprogramm übermit- 
teln wollen? Gewiß, werden Sie 
sagen, lernen wir das ja in den 
nächsten Folgen und können 
dann entsprechende POKE- 
Kommandos geben. Damit ha- 
ben Sie auch recht, nur ist das 
dann der »harte« Weg. Es gibt 
auch einen problemlosen »wei- 
chen« Weg, nämlich das USR- 
Kommando. 

USR ist ein Basic-Befehl und 
rührt her von »User callable ma- 
chine language subroutine«, al- 
sv »durch den Benutzer aufruf- 
bares Maschinensprachunter- 
programm«. Darin liegt eigent- 
lich noch nichts Neues gegen- 
über dem SYS-Befehl. Im Ge- 
gensatz zu SYS — wo das Ärgu- 








ment die Einsprungadresse des 
Maschinenprogrammes ist — 
übergibt USR als Argument eine 
beliebige Fließkommavariable 
in festgelegter Form an eine 
sehr nützliche Speicherstellen- 
kombination, den Fließkomma- 
Akkumulator 1, von uns künftig 
einfach FAC genannt. Der FAC 
belegt die Speicherstellen 97 
bis 102 ($61 bis $66). Wenn das 
eventuell in Basic benötigte Er- 
gebnis dort auch in der vorge- 
schriebenen Form abgelegt 
wird, kann es im Basic-Pro- 
gramm weiterverwendet wer- 
den. Keine Angst, dazu kommen 
wir bei der weiteren Behand- 
lung der Fließkommazahlen 
noch ganz ausführlich zu spre- 
chen. Heute soll uns das noch 
nicht belasten. Als Argument 
kann man nämlich auch irgend- 
eine bedeutungslose Größe, 
ein sogenanntes Dummy ange- 
ben, das dann gar nicht weiter 
verwendet wird. Der USR-Be- 
fehl dient in diesem Fall ledig- 
lich dem bequemen Ansteuern 
eines Maschinenprogrammes. 

Woher weiß unser Computer 
beim USR-Befehl, welche Ma- 
schinenroutine er im 64-KByte- 
Speicher bearbeiten soll? Beim 
SYS-Beiehl ist das klar: Das Ar- 
gument sagt es: 
SYS 24345 
läßt den Programmzähler auf 
dez.24345 zeigen. Aber wenn 
wir eingeben: 
USR(24345) 
dann packt der Computer die 
Zahl 24345 als Fließkommavaria- 
ble inden FAC und meldet dann 
einen SYNTAX ERROR. Das 
legt daran, daß der Basic- 
Interpreter beim USR-Beiehl ei- 
nen der oben kennengelernten 
indirekten Sprünge vollführt: 
JMP (all) 

$311/312 (in dezimal 785/786) 
ist also ein Vektor, und der weist 
im Normalfall zu einer Routine, 
die den SYNTAX ERROR aus- 
gibt (dez. 45640). Bevor wir also 
den USR-Beiehl geben, müssen 
wir in diesen Vektor die Start- 
adresse unserer Maschinenrou- 
tine schreiben: 
dez. 24345 = $5F19 


LSB $19 = dez. 25in 
Speicher 785 mit POKE 785,25 
MSB  $5F= dez. Sin 
Speicher 786 mit POKE 786,95 


Jetzt weiß der Computer, wo- 
hin er beim USR-Aufruf springen 
soll, und solange, bis wir den 
Vektor wieder ändern, führt er 
bei jedem USR-Befehl unser bei 
24345 stehendes Maschinenpro- 
gramm aus. Wir müssen nur 
noch dafür sorgen, daß dort 
dann auch wirklich eines an- 
fängt. Ein Beispiel werden wir 
nachher noch behandeln. 

Der harte Kern: Nochmal Speicherfragen 

Die Struktur des C 64-Spei- 
chers ist vereinfacht schon in 
der Grafik-Serie und zu Beginn 
dieses Kurses gezeigt worden. 


Dabei tauchten zwei ROM-Be- 
reiche auf, die wir Basic- 
Interpreter und Betriebssystem 
genannt haben. Diese Untertei- 
lung ist nicht ganz korrekt. Wenn 
Sie über ein ROM-Listing verfü- 
gen und beispielsweise das En- 
de des ROM-Bereiches von 
$A000 bis $BFFF sowie den An- 
fang desoberen ROM ($SE000 bis 
SFFFF) untersuchen, dann stel- 
len Sie fest, daß ab dez. 49087 
(SBFBF) die Basic-Funktion EXP 
bearbeitet wird. Der letzte Be- 
fehl vor $C000 beendet diese 


‘Funktion aber nicht etwa, son- 


dern dort steht: 
JMP E000 

Tatsächlich läuft ab $E000 bis 
SE042 die Bearbeitung der EXP- 
Funktion munter weiter, und 
auch danach finden sich allerlei 
Basic-Befehle (SIN, COS und so 
weiter). Da liegt also keine klare 
Trennung vor, sondern ein 
Mischmasch. Wir sollten uns 
vielleicht angewöhnen — statt 
vom Interpreter und dem Be- 


triebssystem —, vom unteren 
und oberen ROM-Bereich zu 
sprechen. 


Eine andere Unterscheidung 
ist dagegen sinnvoll: Wie einige 
Besitzer neuerer Cormmodore 64 
sicherlich bemerkt haben, sind 
Teile der ROM-Routinen im Lau- 
fe der Zeit verändert worden. 
Hauptsächlich geht es bei den 
aktuellen Neuerungen dieser 
internen Maschinenprogramme 
um die Farbgebung der Zei- 
chen. Man kanneigentlichnie so 
recht wissen, was den Software- 
Planern von Commodore noch 
alles einfällt. Jedenfalls können 
deren Ideen manchmal recht 
dramatische Folgen haben, 
nämlich dann, wenn Sie ein fa- 
belhaftes Maschinenprogramm 
gebaut haben, welches ROM- 
Routinen dirckt verwendet. Der 
Programmierer spielt auf diese 
Weise eine milde Form des rnus- 
sischen Roulette. Glücklicher- 
weise halten sich die Änderun- 
gen in Grenzen, und wir doku- 
mentieren unsere Programme ja 
auch immer gut (Sie etwa 
nicht??). Notwendige Umbauten 
können also leicht vonstatten ge- 
hen. 

Ganz ohne ROM-Routinen-Ver- 
wendung kormmt man eigentlich 
kaum aus. Es gibt aber einen 
ROM-Bereich, für den Commo- 
dore verspricht, keinerlei Ände- 
zungen durchzuführen: die 
KERNAL-Sprungtabelle. 

Das ist ein Programmbereich 
($FF8l bis $FFF5), in dem 39 
J]MP-Befehle enthalten sind (zum 
Teil in absoluter, aber auch in in- 
direkter Adressierung), Jeder 
dieser Sprungbefehle weist auf 
die Einsprungadresse eines Ma- 
schinenprogrammes. Da finden 
sich alle wichtigen Ein/Ausga- 
be-Operationen, Systemtakt- 
und Uhrsteuerungen und ande- 
res mehr. Wir werden uns nach 
und nach damit vertraut ma- 
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chen. In der Tabelle 3 sind die 
KERNAL-Adressen und ihre 
Funktion aufgeführt. Manche 
davon können ohne jede Vorbe- 
reitung benutzt werden, andere 
brauchen bestimmte Routinen 
oder Angaben, umsinnvollzuar- 
beiten. 

Die Absicht von Commodore 
ist es, daß jeder Aufruf von zum 
Beispiel FFD2 die Ausgabe ei- 
nes Zeichens bewirkt, und zwar 
unabhängig davon, welchen 
Computer in welcher Version 
wir benutzen. Das Programm, 
welches diese Zeichenausgabe 
letztendlich ausführt, kann sich 
ändern, kann in ganz andere 
Speicherbereiche gelegt w iu 
den. An der Stelle $FFD2 w 
aber ımmer ein JMP mit der Ein. 
sprungadresse stehen. Leider 
ist diese Sprungtabelle viel zu 
knapp gehalten. Es gibt so viele 
interessante ROM-Routinen, die 
wir alle ohne diese schöne Si- 
cherheit anspringen müssen. 


Die Urzelle eines 
Programmprojektes 


Wir sind jetzt soweit, daß wir 
die Urzelle eines Programmpro- 
jektes, welches uns eine lange 
Zeit begleiten wird, aufbauen 
können. Wir wollen etwas unter 
den Teppich kehren. Der Tep- 
pich, das sind die uns bislang 
nicht zugängigen RAM-Berei- 
che unter den ROMs. Haben 
Sie das nicht auch schon mal er- 
lebt, daß Sie während einer Pro- 
grammarbeit plötzlich feststel- 
len, Sie benötigen zum Beispiel 
für eine Zwischenrechnung ein 
weiteres Programm, oder Sie 
wälzen Listen und denken sich, 
ein kleiner Hilfsbildschirm wäre 
jetzt von Nutzen, oder.... 

Mit diesem heute zu starten- 
den Programm wäre all das und 
noch viel mehr realisierbar. Es 
soll auf einfache Weise beliebi- 
ge Speicherbereiche unters 
ROM schieben und sie wieder 
hervorholen können. 

Natürlich braucht die Ent- 
wicklung dieses Projektes eıni- 
ge Zeit, zumal wir noch vieles 
lernen müssen. Deswegen sind 
wir in dieser ersten Urzellenoch 
sehr eingeschränkt: Wir ver- 
schieben zuerst einmal nur eine 
Bildschirm-Kopfzeile unter den 
oberen ROM-Bereich. Auch in 
dieser einfachsten Version gibt 
es noch einige Programmteile, 
die Sie erst nach der nächsten 
Ausgabe verstehen werden. 
Aber irgendwann müssen wir ja 
mal anfangen, Nägel mit Köpfen 
zu machen. 

Unser Maschinenprogramm 
soll durch die USR-Funktion auf- 
gerufen werden. Wie wir esin 
dieser Ausgabe gelernt haben, 
muß deshalb vor dem ersten 
Aufruf eine Initialisierung durch 
Belegen des USR-Vektorsmit un- 
serer Startadresse stattfinden. 
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Adresse 
HEX dezimal Name 
FF8l 65409 CINT 
FF84 65412 IOINIT 
FF87 65415 RAMTAS 
FF8A 65418 RESTOR 
FF8D 65412 VECTOR 
FF9O 65424 SETMSG 
FF33 65427 SECOND 
FF96 65430 TESA 
FF99 65433 MEMTOP 
FF9C 65436 MEMBOT 
FFOF 65439 SCNKEY 
FFA2 65442 SETTMO 
FFAS 65445 ACPTR 
FFA8 65448 CIOUT 
FFAB 65451 UNTLK 
FFAE 65454 UNLSN 
FFBl 65457 LISTEN 
FFB4 65460 TALK 
FFB7Z 65463 READST 
FFBA 65466 SETLFS 
FFBD 654589 SETNAM 
FFCO 65472 OPEN 
FFC3 65475 CLOSE 
FFC6& 65478 CHEIN 
FFC9 65481 CHKOUT 
FFCC 65484 CLRCHN 
FFCF 65487 CHRIN 
FFD2 65490 CHROUT 
FFD5 65493 LOAD 
FFD8 65496 SAVE 
FFDB 65499 SETTIM 
FFDE 65502 RDTIM 
FFEI 65505 STOP 
FFE4 65508 GETIN 
FFE7 6551 CLALL 
FFEA 65514 UDTIM 
FFED 65517 SCREEN 
FFFO 65520 PLOT 
FFF3 65523 IOBASE 


Die Startadresse soll $02B6 (dez. 
694) sein, denn dortgibteseinen 
freien RAM-Bereich bis inklusi- 
ve $02FF (dez. 767), der weder 
andere Programme noch Kas- 
settenoperationen stört, Das 
MSB $02 ist dezimal auch 2 und 
wird nach 786 gePOKEt: 
POKE786,2 

Das LSB $B6 ist dezimal 182 
und soll in 785 geschrieben wer- 
den: 

POKE785,182 

Damit ist der USR-Vektor ge- 
stellt und wir brauchen unsnicht 
mehr weiter darum zu küm- 
mern: Jeder USR-Aufruf wird 
nun den Start des Programmes 
bewirken. Nun zum Programm 
selbst. In Bild | finden Sie ein 
Flußdiagramm dazu. 

Zunächst konstruieren wir den 
Teil, der die erste Bildschirmzei- 
le nach $E000 und folgende 
Speicherstellen schiebt. Das X- 
Register verwenden wir als In- 
dex und laden es mit dez.40 = 
$27. 

Schalten Sie also den SMON 
ein und starten Sıe den Assem- 
bler mit: 

A 02B6 
Dann geben Sie ein: 
02B6 LDX #27 

Nun packen wir das letzte Zei- 
chen der obersten Bildschirm- 
zeile in den Akku: 
02B8 LDA 0400,X 

In das Y-Register legen wir die 
dazugehörige Farbe aus dem 
Biläschirmfarbspeicher: 





Funktion 

Prüfen der TV-Norm, Berechnung der Taktfrequenz 
Ein/Ausgabe-Reset 

Prüfen auf freien Basic--RAM 
Initialisieren der I/O-Vektoren 

Lesen und Setzen der I/O-Vektoren 


Setzen der Time-Out-Flagge 

Zeichen vom seriellen Port in Akku lesen 
Zeichen vom Akku auf seriellen Port ausgeben 
Sendet UNTALK an seriellen Bus 

Sendet UNLISTEN an seriellen Bus 

Sendet LISTEN an Geräte per seriellen Bus 
Sendet TALK an Geräte per seriellen Bus 
Liest 1/O-Status in den Akku 


Tabelle 3. Kernal-Routinen 


Holt vom aktiven Eingabekanal ein Zeichen in den Akku 
Sendet Akku-Inhalt aufaktiven Ausgabekanal 


STOPTaste abfragen 
Zeichen aus dem Tastaturpuffer in den Akku lesen 
Schließen aller Kanäle und Files 

Uhr um 1/60 Sekunde weiterzählen 

Lesen des Bildschirmformates 
Lesen/Setzen der Cursor-Position 


02BB LDY D800,X 

Den Akkuinhalt — also die 
Bildschirminformation — legen 
wir nach $E000+$27: 
02BE STA E000,X 

Dasselbe tun wir mit dem 
Farbcode, der ab $E028+$27 
abwärts gespeichert wird. Lei- 
der kann man STY nicht X-indi- 
ziert-absolut adressieren (siehe 
Tabelle ]). Deshalb schieben 
wir zuerst den Y-Registerinhaltin 
den Akku: 
02C1 TYA 
02C2 STA E028,X 

Damit ist das letzte Zeichen 
der Kopizeile verschoben. Wir 


derlich gewesen, der jedesmal 
den X-Registerinhalt mit der 
Zahl $27 vergleicht. 

MERKE: Indexregister inSchleifen 
abwärts zu zählen, kann Rechen- 
zeit einsparen! 

Ab $02CE soll der umgekehr- 
te Vorgang, also das Zurück- 
schieben der vorher gespei- 
cherten Kopizeile in den Bild- 
schirmspeicher geschehen. Das 
einfachste wäre es sicherlich, 
diesen Programmteil mit einem 
weiteren USR-Kommando zu 
starten. Das sähe dann so aus: 


LUSR-Befehl - schiebt Kopf- 


ua i Er = zeile unter 
az das X-Register um ] her oberes ROM 
02C5 DEX ZUSR-Befehl — holt Kopfzeile 
Der X-Index weist nun auf das ALDr in Bild- 
vorletzte Zeichen, mit dem sich gen 
alles ab $02A9 wiederholt. : . 
Wenn das X-Register bis 0 her- SUSR-Beiehl - RR 
untergezählt ist, weist es auf das unter ROM 


erste Zeichen der Kopfzeile. Die 
Schleife muß dann noch einmal 
durchlaufen werden und ein 
weiteres Herabzählen des X- 
Registers erzeugt $FF, was zum 
Setzen der N-Flagge führt. Das 
ist dann unser Signal, daß die 
gesamte Kopfzeile übertragen 


4USR-Befehi -— holt sie wieder 
zurück und so 
weiter. 

Weil aber das Umstellen des 
USR-Vektors durch POKEs vom 
Basic aus lästig ist, tun wir das 
einfach immer am Ende des 


wurde. Die N-Flaggewirddurch betreffenden Maschinenpro- 
den BPL-Befehl getestet: grammabschnittes. Wir schrei- 
02C6 BPL 02B8 benalso dasLSB der Programm- 


So weit, so gut. Wir hätten na- 
türlich auch das X-Register von 0 


fortführung ($CE) nach $311. Das 
MSB bleibt unverändert $02. 


an hochzählen können. Zum 0268 LDA #CE 
Beenden der Schleife wäre 02CA STA 0311 
dannaber ein CPX-Befehl erfor- 02CD RTS 
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VERSCHIE- 
BEN | 


Aktuelle Bildschirm- 
speicherzelle — Akku 


Aktuelle Bildschirmfarb- 
speicherzelle — Y-Reg. 


Akku — unter 
oberes ROM 
Y-Register — Akku 


Akku — unter 
oberes ROM + 28 






X-Register Nein 
negativ 
2 






Ja 


LSB der Startadresse 
von VERSCHIEBEN 2 


— Akku 





Akku — LSB 
des USR-Vektors 







VERSCHIE- 
BEN 2 
Oberes ROM 
ausschalten 













Aktuelle Adresse unter 
oberem ROM — Akku 







Aktuelle Adresse unter 
oberem ROM + 28 
— Akku 







Akku — aktuelle 
Bildschirmspeicherzelle 








Y-Register — Akku 





Akku — aktuelle Bild- 
schirmfarbspeicherzelle 





X-Register 
negativ 
2 


Ja 
Oberes ROM 
wieder einschalten 


LSB der Startadresse 
von VERSCHIEBEN | 
— Akku 











Akku — LSB des 
USR-Vektors 





Bild 1. Das Flußdiagramm zu dem im Text erklärten Programm. 


Ausgabe 2/Februar 1985 


Mit dem RTS sind wir wieder 
im Basic-Programm gelandet, 
welches nun normal weiterver- 
arbeitet wird. Erst ein neues 
USR-Kommando — im Pro- 
gramm oder im Direktmodus — 
startet den zweiten Teil unseres 
Maschinenprogrammes (weil in 
$031l, — der Einsprungpunkt 
des USR-Befehls — die Start- 
adresse der auszuführenden 
Routine steht). 





Einfache Befehle 
mit großer 
Wirkung 





In diesem 2, Teil müssen wir 
erst einige Befehle geben, die 
Sie jetzt vielleicht noch nicht ver- 
stehen. Das hängt damit zusam- 
men, daß zum Herauslesen des 
RAM unter dem ROM das ROM 
ausgeschaltet werden muß (ent- 
spricht POKE 1,53): 


02CE LDA 01 
0200 PHA 
0201 LDA #35 
0203 STA 01 
(Der PHA-Befehl dient hier zur 
Zwischenspeicherung des 


Akku-Inhaltes). Das ist hiermit 
geschehen und wir kommen 
wieder in bekannte Gefilde mit 
der Ausleseschleife: 


0205 LDX #27 
0207 LDY E000,X 
02DA LDY E028,X 
020D STA 0400,X 
02E0 TYA 

02E1 STA 0800,X 
02E4 DEX 

02E5 BPL 0207 


Damit ist die gesamte gespei- 
cherte Kopfzeile wieder zurück- 
geholt und wir können das ROM 
wieder einschalten: 
02E7 PLA 
02E8 STA 01 

Falls nun wieder ein USR- 
Kommando auftaucht, soll die 
Kopizeile mit dem 1. Programm- 
teil unter das obere ROM gelegt 
werden wie am Anfang. Wir 
müssen deshalb den USR-Vektor 
auf $02B6 zurückschreiben: 
02EA LDA #B6 
02EC STA 0311 
02EF RTS 

Das wärs! Wenn nun im Pro- 
gramm oder im Direktmodus 
wieder ein USR-Befehl auftritt, 
kann das Ganze von vorne be- 
ginnen. In dieser Version wird 
jedesmal eine neue Kopfzeile 
hin- und wieder zurückgescho- 
ben. Wenn Sie eine einmal fest- 
gelegte Kopfzeile immer wieder 
benutzen möchten, dann stellen 
Sie den USR-Vektor einfach nicht 
mehr zurück: Lassen Sie also die 
Befehle bei 02EA und 02EC 
weg. Das Programm endet in 
dem Fall mit: 
02EA RTS 


=.:BDoam ınn 
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1. REM RRBRRRRBBRRBRRR <258> 
2 REM * * <229> 
3 REM * TEST FUER DIE 1. VERSION DES # <139> 
4 REM # FROGRAMM-PROJEKTES * <848> 
SREM=+VERSCHTIEBEN VON + <209> 
6 REM + SPEICHERBEREICHEN * <193> 
7 REM * ‚ * <234> 
8 REM = HEIMO PONNATH HAMBURG 1984 * <881> 
DREI <a92> 
12 REM <153> 
15 REM ++++++ USR-VEKTOR EINSTELLEN ++++ <B65> 
29 REM <1653> 
25 POKE 785,182:POKE 785,2 <239> 
38 REM <173> 
35 REM ++++++ KOPFZEILE +4+++++4t+4++++++ <813> 
40 REM <185> 


45 PRINT CHR$(147) CHR$(18) "TEST 
BILD $9490=1924, FARBE $D898=55276"CHR$(14 


85 PRINT:PRINT"HIER GESCHIEHT DAS DURCH A=USR(1 
<152> 


) IN{4SPACE}YZEILE 85" 
98 PRINT"DABEI IST 1 EIN DUMMY UND MIT A FANGEN 
{2SPACE}YWIR AUCH NICHTS WEITER AN.“ <Ba5> 
95 PRINT"AUF TASTENDRUCK WIRD DER BILDSCHIRM 
<029> 


{2SPACEIGE-LOESCHT" 
120 REM <243> 
1085 REM ++UEBERSCHREIBEN DER KOPFZEILE ++ <945> 
118 REM <253> 
115 POKE 198,8:WAIT 198,1:PRINT CHR$(147) <B98> 
122 REM v <007> 
125 REM +++ NEUBEGINN DES PROGRAMMES ++++ <173> 
158 REM <817> 


135 PRINT CHRF£(19)"WAS AUCH IMMER JETZT IN DER 
KOPFZEILE{SSFACE>STEHT, ES WIRD BEIM 2.USR" 
<917> 
148 PRINT"VON DEM ZUVOR DURCH DAS ERSTE USR 
GE-{3SPACEISPEICHERTE UEBERSCHRIEBEN"” <B78> 
145 PRINT:PRINT"WENN SIE JETZT EINE TASTE DRUEC 


6) <971> 
58 PRINT:PRINT:PRINT"DURCH IRGENDEIN USR-KOMMAN KENT & <194> 
DO WIRD NUN IM PROGRAMM-MODUS" <828> | 158 POKE 198,B0:WAIT 198,1 <246> 
55 PRINT"DER ERSTE TEIL DES VERSCHIEBE-PROGRAMM 155 REM <942> 
ES AUFGERUFEN" <118> | 168 REM ++++4++ 2. USR-AUFRUF +4+++++++++ <B98> 
1655 REM <052> 
<169> 


&8 PRINT"DIE KOPFZEILE WIRD UNTER DAS OBERE 
<215> 


ROM<2SPACE>KOPIERT." 
65 REM <208> 
70 REM ++++++ 1. USR-AUFRUF +4+4444++++++  <B42> 
75 REM <218> 
8B A=USR (1) <124> 


178 A=USR(1):PRINT 
175 PRINT"IST DIE ALTE KOPFZEILE ZURUECK IN 


DEN{3SPACEIBILDSCHIRMSPEICHER GESCHOBEN. " 


188 END 


<852> 


Listing 1. Test und Demonstration der Verschieberoutine. Das Programm zeigt das Ein- und Ausschalten einer Koptzene aut gem Bilascnim 
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Eine wichtige Bemer- 
kung noch: So bequem 
der Ort auch ist, an dem 
unser kurzes Programm 
steht, er hat einen gravie- 
renden Nachteil: Falls Sie 
mittels einer RESETTaste 
oder per Software einen 
Basic-Kaltstart durchführen, 
geht unser Programm flöten! 
Dieser Speicherbereich wird 
im Reset-Programm nämlich 
mit lauter Nullen überschrie- 
ben. Deswegen speichern Sie 
es bitte bald ab. 
Damit sind wir für diesmal am 
Ende. Sie finden noch als Listing 
l ein kleines Testprogramm für 
unsere Verschieberoutine, und 
in Tabelle 4 wie immer, eine Zu- 
sammenfassung aller wichtigen 
Daten der neuen Befehle. In der 
nächsten Folge greifen wirnoch- 
einmal das Thema Fließkomma 
auf, werden die einfachsten und 
kürzesten Kurzspeicher-Befehle 
kennenlernen und beginnen mit 
den leistungsfähigsten Befehlen 
des 6502, den indirekt-indizier- 
ten-Befehlen 

(H. Ponnath/gk) 
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Der gläserne VC 20 








Teil 5 





In Folge 4 haben wir die Grundlagen für das Arbeiten mit selbstdefinierten 
Grafikzeichen besprochen. Diesmal werden wir sehen, welche Fähigkeiten der 


eginnen wollen wir heute mit 

dem Bitmapping, also dem 
Arbeiten mit hochauflösender 
Grafik. Hochauflösend deshalb, 
weil die einzelnen Grafikpunkte 
sehr klein und das Gesamtbild 
dadurch sehr fein (eben hoch- 
auflösend) ist. Vorher aber noch 
eine Begriffserklärung: Bitmap- 
ping (engl. Map = Landkarte) 
bedeutet etwa soviel, wie den 
Bildschirm zu kartografieren, 
das heißt jede Bildschirmposi- 
tion ist in hochauflösender Gra- 
fik über eine Koordinate er- 
reichbar. Wer das Superexpan- 
der-Modul (VC 1211A) besitzt, 
der kann mittels einfacher Be- 
fehle wie PLOT, DRAW, CIRCLE 
etc. mit der Hires-{high resolu- 
tion) Grafik arbeiten. Beim 
»nackten« VC 20 ist dies jedoch 
nicht so einfach möglich. 

Das Bitmapping 

Im Gegensatz zu anderen 
Computern unterstütztder VC20 
diese Art Grafik überhaupt 
nicht; man muß sich also eine 
Softwarelösung einfallen lassen. 

Die einzige Möglichkeit, ein- 
zelne Grafikpunkte (auch Pixels 
genannt) — aus denen sich ja je- 
des Zeichen zusammensetzt — 
anzusprechen, haben wir in der 
letzten Folge kennengelernt. Ich 
spreche von der Möglichkeit, 
sich Zeichen selbst zu definie- 
ren. 

Wollen wir also Bitmapping 
betreiben, so bleibt uns nichts 
anderes übrig, als den gesam- 
ten Bildschirm mit verschiede- 
nen Sonderzeichen vollzu- 
schreiben und diese dann umzu- 
definieren, so daß ein komplet- 
tes, neues Bild in Hires-Grafik 
entsteht. 

Doch mit diesem Vorhaben 
stößt man bereits auf erste 
Schwierigkeiten, denn der VC 
20 kann ja nur 256 verschiedene 
Zeichen aufeinmal aufdemBild- 
schirm darstellen. Daher müßte 
man sich mit einer relativ klei- 
nen Fläche für die hochauflö- 
senden Pixels zufrieden geben. 

Da die Anzahl der darstellba- 
ren Zeichen (diese setzen sich — 
um dies noch einmal zu wieder- 
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holen — aus 8x 8 Pixels zusam- 
men) auf 256 beschränkt ist, muß 
man sich eine andere Lösung 
einfallen lassen. Diese ist aber 
— man wird es kaum glauben — 
bereits in den VIC eingebaut 
worden. Das sieht praktisch so 
aus: Man vergrößert die im Bild- 
schirmspeicher abgelegten Zei- 
chen von 8x 8 auf 16x 8 Pixels 
(bei gleicher Auflösung), wo- 
durch sich gleichzeitig die zur 
Verfügung stehende Zeichenilä- 
che erhöht. Diese Vergrößerung 
wird über ein bestimmtes Bit im 
VIC-Kontrollregister #3 einge- 
stellt (vergleiche Folge 4, Tabel- 
le 3). Ist BitO dieser Speicherstel- 


VIC in bezug auf Grafik sonst noch besitzt. 


le auf 0, so bleibt alles wie es 
war, das heißt jedes Zeichen 
wird innerhalbeiner 8x 8-Matrix 
dargestellt. 

Setzt man dieses Bit nun aber 
mit »POKE 36867, PEEK (36867) 
OR l« auf ], so sind alle Zeichen 
plötzlich doppelt so hoch. Ein 
Charakter wird nämlich inner- 
halb eines 16x 8-Gitters abgebil- 
det (Bild ]). Das ist nun alles 
schön und gut, einen Nachteil 
hat dieser Betriebszustand aber 
(wer es selbst ausprobiert hat 
wird es sicherlich schon be- 
merkt haben). Denn mit dem 
normalen Zeichensatz kommt 
auf dem Bildschirm keine ver 


Bild 1. Ein typisches 16 x 8 Bit Zeichen 





nünftige Zeichenfolge mehr zu- 
stande. So wird beispielsweise 
aus dem @ (Klammerafie) das 
Zeichen 

@ 


Ä 
aus dem A das Zeichen 
B 


C 

und so fort. Drückt man nun eine 
Taste, so wird nicht der entspre- 
chende Buchstabe abgebildet, 
sondern irgendwelche anderen 
Zeichen, die, wie eben be- 
schrieben, übereinander gesta- 
pelt sind. 


Doppelt hohe 
Zeichendarstellung 


Die Erklärung dafür ist im 
Prinzip ganz einfach. Wie wir 
das letzte Mal gesehen haben, 
errechnet sich der VIC die rela- 
tive Adresse eines Charakters 
im Zeichengenerator (relativ 
deshalb, weil die Adreßanga- 
ben auf eine Änfangsadresse 
bezogen sind), indem er den 
Bildschirmcode (auch hier erin- 
nern wirunsdaran, daßderBild- 
schirmcode die Reihenfolge der 
Zeichen im Charaktergenerator 
ist) jeweils mit 8 multipliziert. 

Durch die Umschaltung auf 
16-zeilige Zeichen liest der VIC 
für einen Charakter 16 Zeilen 
ausdem ROM. Daher werden — 
da das Zeichengenerator--ROM 
auf achtzeilige Zeichen ausge- 
legt ıst — eben die Informatio- 
nen von ursprünglich zwei Zei- 
chen in einem dargestellt. Folg- 
lich multipliziert der VIC beider 
Adreßermittlung den Bild- 
schirmcode nicht mehr mit 8, 
sondern mit 16. 

Auf diese Weise erklärt sich 
auch der Zahlensalat in diesem 
Betriebsmodus. Diese Darstel- 
lungsart hat jedoch den erhebli- 
chen Vorteil, daß jetzt mehr Zei- 
chen als normalerweise abge- 
bildet werden können. Es sind 
nämlich bereits in 128 Zeichen 
die Informationen von ursprüng- 
lich 256 Zeichen enthalten. Bei 
dem 129. Zeichen (RVS ON und 
@) beginnt daher schon der 
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zweite Zeichensatz des VC. So- 
mit lassen sich diese zwei erst- 
malig gemeinsam auf dem Bild- 
schirm ausdrucken. Statt bisher 
256 »normaler« Zeichen läßt sich 
nun die gleiche Menge in dop- 
pelter Höhe (das entspricht also 
512 regulären Zeichen) abbil- 
den. Damit sind wir jetzt in der 
Lage, den gesamten Bildschirm 
füllen zu können. Darauf gehen 
wir aber später noch ausführli- 
cher ein. 

Das Naheliegendste wäre es 
ja nun, den Zeichengenerator 
ins RAM zu verlegen und dabei 
die Zeichen so umzubauen, daß 
man sie wieder richtig lesen 
kann. Dazu muß beim Kopieren 
jede Zeile verdoppelt werden; 
sonst bleibt ja alles beim Alten. 

Das Programm in Listing | ent- 
hält zwei Zähler. Der eine zählt 
die ROM-, der andere die RAM- 
Speicherplätze, wobei letzterer 
genau doppelt so schnell läuft, 
denn eine ROM-Zeile soll ja 
zweimal hintereinander ins 
RAM geschrieben werden (die- 
ses»Strecken«eines Zeichens ist 
in Bild 2 zu sehen). Da diese 
Schriftart natürlich besonders 
auffällig ist, eignet sie sich bei- 
spielsweise für Schaufenster- 
werbung oder ähnliches. 

Wir wollen uns aber nun wie- 
der unserem eigentlichen The- 
ma — dem Bitmapping — zuwen- 
den. Wie so oft stellt sich auch 
hier wieder die Frage nach dem 
Speicherplatz. Denn egal mit 
welcher Speicherausbauver- 
sion man gerade arbeitet, im- 
mer kommt es zu Kollisionen zwi- 
schen dem Zeichen- und dem 
Bildschirmspeicher. Daher müs- 
sen wir hier die Anzahl der ver- 
fügbaren Zeichen dementspre- 
chend reduzieren. Wenn wir 
möglichst den ganzen Bild- 
schirm füllen wollen, so muß es 
immer zu einem Kompromiß zwi- 
schen Bildschirmgröße und 
Speicherplatz kommen — lo- 
gisch, denn je größer die verfüg- 
bare Hires-Fläche sein soll, um 
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Bild 2. Durch die Verdoppelung (»Strecken«) 
eines normalen Zeichens, kann man 
auch doppelt hohe Zeichen darstellen 


so mehr Speicherplatz benötigt 
man für die Sonderzeichen, 
über die das Bitmapping abge- 
wickelt wird. 

Ich glaube, mit 189 je 16x 8 Bit- 
Zeichen einen solchen Kompro- 
miß gefundenzuhaben. Anhand 
von Listing 2, das in mehrere Tei- 
le gegliedert ist, möchte ich das 
Verfahren beim Bitmapping er- 
klären. Programmteil 2 be- 
schreibt den Bildschirm mit den 
veranschlagten 189 Zeichen. 
Vorher wird der Rahmen noch 
entsprechend der etwas »krum- 
men« Zeichenzahl angepaßt. 
Denndaebennicht der gesamte 
Bildschirm genutzt werden 
kann, wird der leere Rest ein- 
fach abgeschnitten, was durch 
Verkleinerung der Bildschirm- 
fläche geschieht. Wenn man die 
Zeilen 240 — 260 aus dem Pro- 
gramm herausläßt, sieht man 
das ganz deutlich. In Teil 3 des 
Listings wird dann schließlich 
der gesamte Zeichengenerator 
von Adresse 5120 bis 8192 ge- 
löscht, damit der Bildschirm 
auch wirklich restlos leer ist. 

Damit sind alle Vorbereitun- 
gen getroffen, die wir vor dem 
eigentlichen Plotten durchfüh- 
ren müssen. Nun gehtes darum, 
die eingegebenen Koordinaten 
aus den Variablen X und Y so 
umzuwandeln, daß die entspre- 
chende Zeichenzeile im Cha- 
raktergenerator verändert wer- 
denkann. Älserstes verschaffen 
wir unseinen Überblick, wie die 
Zeichen auf dem Bildschirm an- 
geordnet sind (Bild 3). 

Durch die Verkleinerung der 
Fläche ergebensich bei 189 ver- 
teilten Zeichen 21 Spalten und 9 
Zeilen. Eine Spalte ist immer 
noch 8 Bit breit, denn sie rührt ja 
von der Zeichenbreite her. Da- 
her ergibt sich durch Multiplika- 
tion eine Gesamtbreite von 168 
Pixels. Analog verhältessich mit 
der Zeilenzahl: 9 Zeilen ä 16 Zei- 
chenzeilen ergibt 144 als maxi- 
male Y-Koordinate. Übrigens hat 
das Koordinatensystem seinen 


Ursprung (X=0/ Y=0) nicht — 
wie in der Mathematik — links 
unten, sondern links oben. 

Die Koordinaten müssen aus 
programmtechnischen Grün- 
den in zwei Teile aufgespalten 
werden; nämlich in den soge- 
nannten Grob- (oder auch 
Zeichen-) anteil und in den Fein- 
anteil (auch Pixelposition ge- 
nannt). 


Die Koordinaten- 


umrechnung 


Der Grobanteil ist nötig, damit 


zunächst einmal die Änfangs- 
adresse eines Zeichens im Zei- 
chengenerator festgestellt wer- 
den kann. Mit Hilfe des Feinan- 
teilsadressiertman dann die be- 
nötigte Zeichenzeile und in die- 
ser dann die Pixelposition (aber 
dazu später mehr). 

Anhand eines konkreten Bei- 
spiels wollen wir den zur Be- 


X-Koordinate: 
Y-Koordinate: 


rechnung nötigen Algorithmus 
entwickeln: Der Punkt mit den 
Koordinaten X= 43 und Y= 106 
soll auf dem Bildschirm gesetzt 
werden. 

Nun wird als erstes festge- 
stellt, in welchem Zeichen eine 
Änderung vorgenommen wer- 
den muß. Zu diesem Zweck wird 
die Koordinate in die besagten 
Grobanteile aufgespalten, was 
durch einfache Division ge- 
schieht. Die Spaltenkoordinate 
wird durch 8 (Zeichenbreite), 
der Zeilenanteil wird durch 16 
(Zeilenhöhe) dividiert: 

Ras = 8 = 5Rest 3 
Y: 106 = 16 = 6 Rest 10 

Das Ergebnis ist jeweils der 
Grobanteil, der Rest ist dann au- 
tomatisch die Pixelposition (= 
Feinanteil). Der erste Teil dieser 
Rechnung wirdinListing2inden 
Zeilen 640 und 650 durchge- 
führt. 

Danach wird die relative Posi- 
tion eines Zeichens im Charak- 
tergenerator ermittelt. Die dafür 
nötigen »Formeln« haben wir ja 
bereits das letzte Mal bespro- 
chen: 

Position = ZY x Zeichen pro Zei- 
le + ZX 
=6x21+5 = 13l. 

Das betreffende Zeichen hat 
also den Biläschirmcode 131. Da 
ein Charakter (nach der Um- 
schaltung aufeine 16 x 8 Matrix) 
den Platzbedarf von 16 Byte hat, 
kann man auch ganz leicht die 
Anfangsadresse der ersten Zei- 
chenzeile errechnen: 
ADRESSE = Position x Platzbe- 
darf + Basisadresse = 131x16 + 
5120 = 7216 
Dann ermitteln wir als nächstes 
über den Pixelanteil der Y- 
Koordinate die benötigte Zei- 
chenzeile. In unserem Beispiel 
muß zur Zeichenadresse der 
Wert von PY — also 10 — dazuad- 
diert werden. Damit haben wir 
die endgültige Adresse der an- 
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Bild 3. Durch das Beschreiben des Bildschirms mit 189 aufeinander- 
folgenden Zeichen kann das Bitmapping realisiert werden 





VG 20-Kurs 


ee Nun Eee ae ee 


100 REM ers <9809> 
118 REM x*%*x -.. <249> 
120 REM *** DOPPELT HOHE ZEICHEN- x#%* <114> 
150 REM *** DARSTELLUNG. *** <128> 
148 REM x## *** <923> 
158 REM ##* ACHTUNG !ı ... <1989> 
168 REM *** BEI 8 KBYTE ERWEITER. #%%* <871> 
170 REM *#* VOR DEM LADEN *.* <192> 
188 REM *#*x >> FOKE 44,32 << “+ <891> 
190 REM xx* EINGEBEN !'ıı *.. <218> 
208 REM HERREN UNTEN EEE <1989> 
218 POKE 55,8:POKE 56,24:CLR <211> 
228 REM **# ZEILE 218 ENTFAELLT BEI <198> 
258 REM *** DER 8 KBYTE ERWEITERUNG. <BB4> 
240 AW=6144:EW=7147:6=14 <252> 
25@ REM #** BEI 8 KBYTE ERWEITERUNG <223> 
260 REM *** ZEILE 238 FOLGENDERMASSEN <125> 
278 REM #*** AENDERN : <B85> 
280 REM *** AW=5129: EW=8192:6=13 <284> 
298 71=32768 <1B6> 
3502 FOR Z2=AW TO EW STEP 2 <159> 
518 WE=PEEK (Z1) <B35> 
528 FOKE Z2,WE:POKE Z2+1,WE <244> 
358 Z1=Z1+1:NEXT <178> 
540 POKE 36869, PEEK(368649)DOR 6 <B56> 
S5D FOKE 36855,21 <145> 
S56B FOKE 36867,33 <168> 


Listing 1. Doppelt hohe Zeichendarstellung 


gewählten Zeichenzeile berech- 
net. Dies klingt alles viel kompli- 
zierter, alsesin Wirklichkeit ist, 
dennalle dreiSchritte können zu 
einem (Zeile 690) zusammenge- 
faßt werden. 

Damit sind wir schon fast am 
Ziel (das kann man hier sogar 
wörtlich nehmen) angelangt. Als 
letztes muß das durch die Pixel- 
X-Koordinate vorgegebene Bitin 
der Zeichenzeile gesetzt wer- 
den. Dies wird durch eine 
ODER-Verknüpfung des Wertes 
mit der Zeichenzeile erreicht. 

Vorher ist aber noch eine letz- 
te Hürde zu überwinden, die 
Koordinate ist nämlich nicht 
Byte-identisch. Was bedeutet 
das? Nun, unser Bildschirm ent- 
spricht beim Bitmapping ja auch 
einem Koordinatensystem. Denn 
über die horizontale (X-) und die 
vertikale (Y-)Koordinate läßtsich 
jeder beliebige Pixelpunkt 
durch ein Zahlenpaar (eben 
durch den X- und YWert) ein- 
deutig adressieren. Dabei hat 
der Punkt links oben die Koordi- 
naten (0/0), der rechts unten die 
Koordinaten (167/143). 

Für die X-Achse bedeutet 
dies, daß der Wert nach rechts 
ansteigt. Für die Fein-X-Koordi- 
nate gilt natürlich das Gleiche; 
sie kann von links nach rechts 
folgende Positionen annehmen: 
0,1,2,3,4,5,6,7. 

Hier liegt nun der springende 
Punkt. Position 0 entspricht näm- 
lich Bit Tin der Zeichenzeile, Po- 
sition | Bit 6, die Position 2 Bit 5 
und so fort. Diese Bits laufen also 
genau in entgegengesetzter 
Richtung. Folglich muß die 
Pixel-X-Koordinate dementspre- 
chend »sumgepolt« werden. Dies 
wird ganz einfach dadurch er- 
reicht, indem man diesen Wert 
von der 7 subtrahiert: 


Ausgabe 2/Februar 1985 


Bitformat = 7 — (Pixel-X-Koordi- 
nate) 

In unserem Beispiel ergibt sich: 
Bitposition= 7—3=4 

Bit4sollnunin der Zeichenzei- 
le gesetzt werden. Dies errei- 
chen wir — wie bereits erwähnt 
— durch die ODER-Verknüpfung 
des Wertes mit dem Zeichenby- 
te. Wer den letzten Teil aufmerk- 
sam verfolgt hat, dem wird dies 
nicht schwerfallen. Da Bit 4 die 
Wertigkeit 16(= 2%) hat, wird die 
Zeichenzeile eben mit 15 ODER- 
verknüpft. 

Wenn man alle drei Schritte 
zusammenfaßt, ergibt sich fol- 
gende Zeile: 

POKE AD, PEEK (AD) OR 2 ı 
(7-PX). 

Damit ist der entsprechende 
Pixelpunkt gesetzt. Mit diesem 
letzten Teilstück haben wir nun 
endlich den kompletten Routi- 
nenteil beieinander, um ihn als 
Unterprogramm in Teil 4 von Li- 
sting 2 zu verwenden. Natürlich 
können mit Hilfe dieser Metho- 
de auch Punkte gelöscht oder 
abgefragt werden. Das Löschen 


wird mit Hilfe der AND- 
Operation bewerkstelligt. Das 
zu löschende Bit muß im Ope- 
randen auf Null, alle anderen, 
die unberührt bleiben sollen, 
auf eins gesetzt werden. Folgen- 
de Zeile löscht den adressierten 
Pixelpunkt: 

POKE AD, PEEK (AD) AND 255-—— 
21 (7-PX). 

Die Abfrage von Punkten wird 
ebenfalls über die AND- 
Operation abgewickelt. Das ge- 
wünschte Bit wird im Operan- 
den gesetzt und danach mit der 
Speicherstelle UND-verknüpit. 
Ist das adressierte Pixel gesetzt, 
so ist dieIFTHEN-Bedingunger- 
füllt, ansonsten nicht: 


IF 21 (7-PX)= (PEEK(AD) AND 21 
(7-PX)) THEN... 


Natürlich sollteman anstelle des 
Ausdrucks 21 (7-PX) eine Varia- 
ble definieren, damit das Pro- 
gramm kürzer und schneller 
wird. 





Zeichnen auf dem 
Bildschirm — der 
Joypainter 





Soweit also die Erklärung des 
Bitmapping beim VC 20. Um ein- 
mal zu zeigen, was man mit die- 
sen Erkenntnissen anfangen 
kann, habe ich ein Joypainter- 
Programm in Maschinenspra- 
che entwickelt. Der Basic-Lader 
(Listing 3 und 4) transferiert das 
Programm aus den DATA-Zeilen 
automatisch in die Speicherbe- 
reiche ab $2000 und nur dort ist 
es lauffähig (Der Speicher muß 
also um mindestens 8 KByte er- 
weitert sein). Beide Listings müs- 
sen nacheinander geladen und 
gestartet werden. Zunächst zur 
Bedienung der Routine, die mit 
»SYS 9682« gestartet wird. 

Der Joystickpainter arbeitet — 
wie der Name bereits sagt — mit 
dem Joystick. Der kleine »Zei- 
chencursor« kann mit dem Steu 
erknüppel in alle vier Himmels- 
richtungen und in alle Diagona- 
len beweat werden. 


Es ist aber auch möglich, den 
Cursor über die Tasten E, S, D 
und X zu bewegen (ganz nach 
Belieben). Auch die Cursorta- 
sten können für die Steuerung 
herangezogen werden, über die 
Tastatur hat man allerdings nur 
vier Bewegungsrichtungen für 
den Zeichencursor zur Verfü- 
gung. Die Tasten verwendet 
mansinnvollerweise dann, wenn 
es darum geht, besonders exakt 
zu zeichnen. Äus diesem Grund 
kann man auch die Bewegungs- 
geschwindigkeit über die Funk- 
tionstasten F5 und F7 auf schnell 
beziehungsweise langsam stel- 
len. 

Gezeichnet wird mitden Funk- 
tionstasten Fl und F3. Die obere 
setzt einen Punkt (und rückt den 
Cursor um einsnach rechts), die 
andere löscht einen Punkt (die- 
se Tasten haben eine Wiederho- 
lungsfunktion). Auch der Feu- 
erknopf kann zum Zeichnen ver- 
wendet werden. Ein kurzer 
Druck bewirkt das Setzen, ein 
langer dasLöschen eines Pixels. 
Über die CTRLTaste können 
darüber hinaus noch andere 
Funktionen wie Dauerzeichnen 
oder Dauerlöschen angewählt 
werden. Tabelle 1 zeigt den 
kompletten Befehlsvorrat. 

Natürlich fehlen diesem Pro- 
gramm — da es nicht allzu lang 
ist — einige Funktionen, die es 
noch komfortabler machen wür- 
den, wie beispielsweise die Ver- 
schiebung eines Zeichenblocks 
auf dem Bildschirm. Solch ein 
Programm würde aber samt Er- 
klärung den Rahmen dieses Kur- 
ses sprengen. 

Diejenigen, die einige Routi- 
nen wie das Bitmapping-Unter- 
programm oder ähnliches in ih- 
ren eigenen Programmen ver- 
wenden möchten, finden in Ta- 
belle 2eine Auflistung der wich- 
tigsten Programmteile. 

Das Unterprogramm zur Joy- 
stickabfrage wird übrigens in 
der nächsten Folge ausführli- 
cher besprochen. Einen bedeu- 
tenden Nachteil hat die Hires- 
Grafik aber, sie ist nämlich ziem- 
lich farblos. Warum ist dies so? 

Da sich diese Grafikart aus 
den 8x 8- (oder 16 x 8-) Basiszei- 





























| modus eignet sich aber besonders für Spielfiguren (4c) oder ähnliches. 











| Bild 4. Das Hires-Zeichen »A« (4a) wird im Multicolormodus (4b) zu einem mehrfarbigen Gebilde. Der Vielfarb- 
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chen zusammensetzt, kann man 
— wie es auch bei »normalen« 
Buchstaben und Grafikzeichen 
üblich ist — jeder Videospei- 
cherposition über das Farb- 
RAM jeweilsnur eine Farbe (von 
0 bis 7) zuweisen. 

Die Darstellung von verschie- 
denen Farben innerhalb eines 
Zeichens ist also nicht möglich. 
Für manche Zwecke benötigt 
man aber nun gerade mehrere 
Farben innerhalb einer Zei- 
chenmatrix. In diesem Fall wird 
dann ganz einfach auf den Multi- 
colormodus — den wir im fol- 
genden genauer besprechen 
werden — umgeschaltet. 


Buntes Allerlei: 
Multicolor 


Ist innerhalb eines 8 x 8 Zei- 
chengitters irgendwo ein Bit mit 
dem Wert l, so wird die entspre- 
chende Bildschirmzelle mitdem 
Farbwert, der in der zugehöri- 
gen Farbspeicherstelle steht, 
ausgefüllt. Befindet sich in die- 
ser Pixelzelle der Binärwert 0,so 
wird diese in der Hintergrund- 
farbe auf dem Bildschirm abge- 
bildet(sieistalsonichtzusehen). 

In einem normalen hochauflö- 
senden Zeichen können also 
zwei verschiedene Farben dar- 
gestellt werden: 

Bit auf 0: Pixeldarstellung in Hin- 
tergrundfarbe 

Bit auf |: Pixeldarstellung in Vor- 
dergrundfarbe (Farb-RAM) 

Wie Sie sehen, kann man die 
zwei Zustände auch als Farbco- 
des interpretieren. Ebenso ver- 
hält es sich im Multicolormodus: 
Hier werden nunzweiBitineiner 
Zeichenzeile zusammengefaßt, 
die ebenfalls einen solchen 
Farbcode (allerdings für vier 
Farben) bilden. Ein Pixel ist in 
diesem Fall dann aber auch 
doppelt so breit wie normal, wo- 
durch sich auch die Auflösung 
um die Hälfte reduziert. Bild 4 
verdeutlicht den Unterschied 
zwischen diesen beiden Grafik- 
arten. Diese vier möglichen 
Farbcodes sind auch hierbei 
wiederum nur die Zeiger auf 
Speicherstellen, indenendieei- 
gentlichen Farbinformationen 
enthalten sind. Hier die mögli- 
chen Kombinationen: 


00 : Hintergrundfarbe 
01 : Rahmenfarbe 

10 : Zeichenfarbe 

11: Hilfsfarbe 


Die Werte 00 und Ol, also 
Hintergrund- und Rahmenfarbe 
zeigen aufdas VIC-Register #15 
(36879), in dem ja die Informatio- 
nen über Rahmen- und Hinter- 
grundfarbe abgelegt sind. Die- 
se Farben sind also für alle Mul- 
ticolorzeichen einheitlich vorge- 
wählt. Auch der Code 11 — die 
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Hilfsfarbe — wird einheitlich 
vorgewählt. Dieser Farbwert 
wird allerdings in einem Regi- 
ster gespeichert, das eigentlich 
mit Grafik überhaupt nichts zu 
tun hat, nämlich dem VIC- 
Register # 14 (386878), mitdemja 
auch die Lautstärke festgelegt 
wird. Die Bits Obis3 enthalten al- 
so den Lautstärkewert, die obe- 
ren vier Bit die Hilfsfarbe. Die- 
se muß demnach speziell für 
Multicolor eingestellt werden, 
denn normalerweise ist diese 
Speicherstelle auf Null gesetzt 
(damit die Lautstärke ebenfalls 
null ist). 

Schließlich ist noch Farbcode 
10 zu erwähnen. Dieser wird für 
jedes Zeichen einzeln in der ent- 
sprechenden Farbspeicherstel- 
le — wie wir es ja von den Hires- 
Zeichen her kennen — be- 
stimmt. Die Bits Obis2 speichern 
die gewünschte Farbe, Bit 3 hat 
eine besondere Funktion: Über 
dieses Bit wird — und dasistneu 
— der Grafikmodus ausgewählt. 
IstesaufO(wasja der Normalfall 
ist), sostelltder Computer denin 
der dazugehörigen Videospei- 
cherposition abgelegten Cha- 
rakter im Zweifarbmodus (also 
in Hires-Grafik) dar. Setzt ınan 
das Bit 3 nun aber auf |, so wird 
der Vierfarbmodus für dieses 
Zeichen eingeschaltet. 

Folglich kann also die Darstel- 
lungsart für jedes Zeichen im 
Farb-RAM selektiert werden. 
Daher kann also sowohl der ei- 
ne, als auch der andere Grafik- 
typ gleichzeitig auf dem Bild- 
schirm abgebildet werden. 

ProbierenSieesgleich einmal 
aus: die 1, also das Zeichen A, 
wird in die Bildschirmspeicher- 
stelle 7880 (4096) gePOKE:t. Da- 
nach ist in der entsprechenden 
Farbspeicherstelle der Color- 
wert mit POKE 38400,6 (bezie- 
hungsweise 37888,6) zu vermer- 
ken. In der linken oberen Ecke 
steht also nun ein blaues »A«. Als 
nächstes wird Bit3im Farb-RAM 
für diese Zeichen gesetzt: 
POKE 38400, PEEK (38400) OR 8. 

Nun verschwimmen die Kontu- 
ren des Charakters und ein far- 
biges Gebilde erscheint, das 
nur noch entfernt an den Buch- 
staben A erinnert. Nun, wie Sie 
schon bei den doppelt hohen 
Zeichen gesehen haben, ist das 
Zeichengenerator-ROM für eine 
bestimmte Betriebsart konzi- 
piert. Natürlich werden die Zei- 
chen deshalb in hochauflösen- 
der Grafik dargestellt, damit sie 
besser unterscheidbar sind. Da 
der Zeichengenerator wieder- 
um nur für Hires-Zeichen konzi- 
piert wurde, kann man in Multi- 
color nicht viel mit ihnen anfan- 
gen. 

Wegen ihrer geringen Auflö- 
sung eignet sich diese Betriebs- 
art sowieso nur für Spielfiguren 
oder ähnliche Zeichen. Dazu 
muß der Zeichengenerator wie- 
der ins RÄM verlegt werden, 


was ja durch eine Änderung im 
Register #5 geschieht. Dann 
können die Zeichen wie in Bild 4 
programmiert werden. In Listing 
5 ist eine solche Routine zu fin- 
den. Sie erzeugt ein kleines 
Multicolor-Männchen (der 
Klammeraffe @ wird entspre- 
chend umdefiniert). 


dehnter Exkurs in die Welt der 
VC 20-Grafik, mit dem ich diese 
Folge beschließen möchte. In 
der nächsten Folge unseres Kur- 
ses möchte ich noch einmal auf 
das Betriebssystem und dessen 
Routinen eingehen, denn auch 
hiertutsichdem Programmierer 
ein weites Betätigungsfeld auf. 





Soweit unser etwas ausge- (Christoph Sauer/ev) 

Taste Funktion 

Fl Punkt setzen 

F3 Punkt löschen 

F5 Cursor aufschnelle Bewegung umschalten 

FZ Cursor auflangsame Bewegung umschalten 

E 

Ss 

D Steuertasten für den Zeichencursor 

x 

CTRLC Bildschirm löschen 

CTRLF Farbe des Bildschirmes mit den Tasten + 
und — ändern. Mit RETURN beendet man 
die Farbeinstellung 

CTRLL LOAD von Band oder Floppy 

CTRLS SAVE von Band oder Floppy 

CTRLFI Zeichenmodus: Der Joystick (oder die Ta- 
sten) werden zu einem Zeichenstift, das 
heißt, bei jeder Bewegung wird ein Punkt 
gesetzt. 

CTRLF3 Radiermodus: Joypainter wird auf Dauerlö- 
schen umgeschaltet. 

SHIFT »hebt« den Zeichenstift, beziehungsweise 
den Radiergummi. Solange man diese Taste 
drückt, kann man den Cursor bewegen, oh- 
ne daß das Bild verändert wird. 

RUN/STOP Hebt den Zeichen- beziehungsweise Radier- 


modus ganz auf 


Tabelle 1. Die Steuerfunktionen beim Joypainter-Programm 





Anfangs- 

adresse Funktion 

$2000 Cursortasten abfragen 

$2047 Joystickabfrage 

$2084 Startbild (64er...) 

$21B2 Grafik (Bitmapping) einschalten 

S21DC Grafik löschen 

$2lF5 Koordinaten-Umrechnung 

$225F Punkt setzen 

$226B Punkt löschen 

$2279 Punkt abfragen 

$22D9 Feuerknopf Verarbeitung (kurzer Druck, langer 
Druck) 

$233D Joypaintroutine 

$2410 Kontrolltastenabfrage und -verarbeitung 

$25D2 Startadresse 


Tabelle 2. Die wichtigsten Unterroutinen im Joypainter-Programm 
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REM 
REM 
REM 
REM 


WE 
**%* VC 28 BITMAFFINGROUTINE #*%*#* 
*** FUER SPEICHER >8 KBYTE ##*#* 
“++ *** 


<899> 
<aDoS5> 
<125> 
<815> 













148 REM x#x** ACHTUNG"! *** <B66> 
1520 REM x%*%# VOR DEM LADEN *** <B882> 
158 REM #%** >> FOKE 44,32 << *** <871> 
178 REM #** EINGEBEN !ı1ı *.. <246> 
188 REM BEE 2 2 ZZ 2 2 a ee ee er <B89> 













198 REM <877> 
288 REM <887> 
210 REM -—------- TEIL 1 ---------- <2053> 
228 REM <1907> 
238 REM *** BILDSCHIRM EINRICHTEN <189> 
248 POKE 36864,13 : REM LINKER RAND <213> 
252 FOKE 368655,44 : REM OBERER RAND <222> 
268 FOKE 36866,21 : REM 21 SPALTEN <125> 
278 FOKE 36867,19 : REM 18 ZEILEN (168) <895> 
258 FOKE 36869,295 : REM ZEICHEN AB 5128 <157> 






298 
<198> 
<172> 
<228> 
<115> 
<8356> 






REM *** 189 ZEICHEN IN DEN BILD- 
REM #*# SCHIRMSPEICHER POKEN. 
548 FOR T=B TO 188:POKE 4096+T,T 

s5@ FOKE 37888+T,6:NEXT 

REM 











REM <812> 















>78 REM *** HIRESSCREEN LOESCHEN <852> 
422 FOR T=D TO 3824: FOKE 5128+T,8:NEXT <1B90> 
418 REM <942> 
A2a REM ---------— TEIL 4 --—------- <161> 
436 REM <882> 
448 REM <972> 
45B REM *** HIER WURDE ALS DEMON- <255> 
462 REM #** STRATIONSBEISPIEL EINE <915> 
478 REM **=* SIN-FUNKTION EINGESETZT. <153> 
486 FOR X=8 TO 167 <222> 
498 Y=(SIN(X#2#1/167)+1)#71.7 <215> 
S0B GOSUB 648 <928> 
518 NEXT <129> 






'G0TO 522 <842> 






5658 *** BITMAPPINGROUTINE 

578 REM x### SsSs22S5=m==sSSs=mmoce <B84> 
S882 REM **= DIE HOCHAUFLODESENDEN PIXELS <149> 
S597D REM *** KOENNEN UEBER KOORDINATEN <828> 







600 REM *** ANGESFROCHEN WERDEN. <215> 
&18 REM **# DIE X-KOORDINATE MUSS <168, <9007> 
620 REM *** Y MUSS <144 SEIN. <9078> 








<897> 
<086> 
<195> 
<915> 
<185> 
<165> 





ZX=INT(X/8) =: PX=X-ZXuB 
ZY=INT(Y/16): PY=Y-ZY#16 

REM *** DIE KOORDINATEN WERDEN IN 
REM *** EINEN ZEICHEN- UND EINEN 
REM *** FIXELANTEIL AUFGESPALTEN. 





658 
650 
678 
688 








698 AD=5128 +ZX*1& +ZY=3I6 +PY <B26> 
728 REM *** AD IST DIE ZEILENADRESSE <224> 
718 REM *** EINES CHARAKTERS IM ZEI- <892> 






720 
738 
748 
758 
768 


REM *** CHENGENERAROR RAM. 

FOKE AD,PEEK (AD) OR (21 (7-PX)) 
REM **%* IN DIESER ZEILE WIRD DAS 
REM **# GEWUENSCHTE PIXEL GESETZT. 
RETURN 


<176> 
<128> 
<205> 
<821> 
<136> 








Listing 2. Die Bitmapping-Routine 


192 REM 
118 REM 
128 REM 
158 REM 
14B FOR 


*#%* JOYFAINT TEIL 1 
>> VOR DEM LADEN << 
FOKE 44,39: POKE9984,0 <217> 
>> EINGEBEN << <B66> 
T=8192 TO 9B1S:READ D:S=S+D:POKE T,D 
:NEXT <848> 
158 IF S<>92869 THEN PRINT" {CLR,SDOWN}FEHLER 
IN DATAS !!":END <234> 
168 PRINT"BITTE TEIL 2 LADEN" <185> 


<952> 
<D54> 









DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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895,254,152,072,165,197,162,083 
221,059,832,249, 005,202,81&. 248 
208,005,189,063,052,208,827,162 
201,221,067 ‚032,248, 0025,202,01& 
248,208,005,189,069 ‚032,208, 8n4 
169 ‚200, 240,006. 172.141 .002. 288 
2021,818,1353,184,184,168,234,234 
1655,184,096,8041,018,025,049,004 
298,292,001,025,051,004,001,120 
152 072.169, 20280,141,019,145,169 
127,141,034, 145,173, 032,145,941 
128,073,128,874,074,874,074 ,133 
184,169,255,141,0834,145, 173,017 
145,841,060,873,060,874,074,,133 
185,841,088,074,074,974,133,250 
165,195,041,887,0085,184,170,104 
168, 158,288,8968,169,059,141,015 
144,162,000,189,1&02,932,932,219 
255,232 ‚2088,247,189,160,0833,249 
205, @32,21®,255,232.208.245.096 
147,051,2986,163,163,205,832,032 
052,208,165,165,0932,207,165,017 
165,207,208,186,032,032,206,286 
165,165,052,204,165,0153,165,165 
032,052,9832,206,206,032,165,165 
232,052,0832,2068,163,163,205,167 
208,206,208,013,165,163,163,205 
032,165,2904,164, 165,204, 832,032 
052,165,297,208,167,167,032,164 
186,013,165,207,288,167,952,165 
032,032, 832,167, 052 ‚032,032, 165 
163,1653,167,1687,032,165,013,165 
204,186,167,052,163,163,163,165 
297 ‚032,032. 032,165, 2087,1683,1653 
167,052,1685,815,205,164,154,706 
832,032. 032,0532,2904,165,032,032 
052,205,163,163,288,167,032,165 
8153,0532,032 ‚032,032, 032,032,9032 
0532,0532,032,032 ‚032,032,932, 163 
165,165,052,165,813,817,017,018 
032,032,032, 032,052,832,932,032 
032,032,032,032,032 ‚252,052,932 
052,032,8032,032,9032,032,032,032 
852,974,079,089,083,084,073,067 
875,032,0892,055,073,078,084,969 
082,032 ‚032,032 ‚2032,052,832,9032 
052,052,832,832,032,032,832,032 
052,052,832,9832,032,832,032,032 
032 ‚a32,21>. 817,017,144,032,240 
267,041,032,049,9057,055, 052,032 
052,066,089,032,067,84& ‚083,065 
885,069,882,9813,917,017,029,029 
029,029,029,018,156,032,032,832 
284 ,8585,083 ‚084,069. 032,0532,932 
213,000. 169,013,141,0080,144,159 
244,141,001,144,169,921,141 ‚2882 
144,169,019,141,003,144,169,205 
141,885,144,162,189,138,157,000 
016,169,0068,157,0080,148,202,224 
255,208,242,896,169,820,133,177 
169,880,1353,176,168,000,145,176 
= 176,208 ‚202,230. 177,166,177 

24,052,208,242,096,134,176,132 
177. 158,041,248,133,178,165,176 
056,229, 178,133,180,165,177,041 
2498,1533,179,165,177,0856,229,179 
155,181,169,008,133,1768,135,182 
169,028,1533,177,162,021,165,179 
832, 083,054, 202,208,248,165,178 
024,018,158,169,088,121, 182,133 
182,152, 032,083 ‚2854,169,0980,133 
192,165,181,832,9983,034,056,169 
007,229,188, 170,248, 289,1697,801 
210,292,208,252,133,182,896,169 
2921,208,249,024,101,176,133,176& 
165,182,191,177,1335,177,096,032 
245,255,160,200,177,176,005,182 
145,176,0968,832,245,033, 160,088 
165,182,073,255,9049,176,145,176 
096,052,245,033,160,0828,177,176 
837,182,197,182,208,202,160,001 
096,160,0248,032,071,032,165,258 
208,008,136,2908,246,168,008,132 


Listing 3. Basic-Lader »Joypaint« (Teil 1) 
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<039> 
<B64> 
<B45> 
<898> 
<075> 
<089> 
<118> 
<977> 
x135> 
<134> 
<163> 
<1 

<166> 
<184> 
<189> 
239> 
<196> 
<229> 
<229> 
<251> 
<245> 
<BDd&s> 
<919> 
<B14> 
<a28> 
<945> 
<245> 
<B74> 
<885> 
<879> 
<195> 
<116> 
<199> 
<126> 
<113> 
<148> 
<124> 
<140> 
<169> 
<155> 
“165> 
<175> 
<249> 
<245> 
<210> 
<215> 
<225> 
<2435> 
<828> 
<045> 
<a497> 
<B48> 
<B855> 
<054 > 
<86sD> 
<895> 
<181> 
<106> 
<134> 
<128> 
<149> 
<154> 
<153> 
<188> 
<208> 
<192> 
<211> 
<219> 
<208> 
<225> 
<255> 
<249> 
<997> 
<81I> 
<B36> 
<a3S5> 
<9a42> 
<0808> 
<067> 
<973> 
<985> 
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069,096,169,248,141,012,144,160 
037,162,255,234,234 ‚234,234 ,234 
202,208,248,136,208,243,160,255 
032,071,032,165,259,208,813,136 
288,246, 168,801,132,069,169,088 
141,012,144,096,169,144,141,012 
144,168,032,162,255,234 ,234,202 
208,251,136,208,246,160,202,208 
227,169,815,141,9014,144,032,137 
34,192,000,2490,0086,165,869, 201 
292,248,291,096,169,0820,141,014 
144,052,137,034,192,002,240,249 
160,082,132,869,208,237,165,197 
291,039,2498,089,201,247,240,014 
160,0098,132,069,296,169,240,9032 
032,235,160,001,2908,087,169,144 
232,032,035,160,002,132,9069,096 
141,012,144,169,9015,141,014,144 
160,037,162,255,234,234 ‚202,208 
251,136,208,246,169,280,141,012 


155,051,169,048,162,255,234,234 
2534 ,202,298,259,156,208,245,248 
205,169,0080,141,0811,144,141,014 
144,0968,169,281,155,053,895,169 
2008,240,249,169,255,208,245,165 
0£68,240,207,032,9098,054,1697,289 
248,205,252,1108,034,052,824,229 
8968,052,178,853,9768,195,835,169 
288,133,198,032,215,036,162,208 
189,255,037,032,21908,255,232,224 
017,208,245,162,2808,0932,015,225 
221,0153,249,288,157,2080,882,232 
224,016,144,241,134,258,162,208 
189,018,058,032,218,255,232,224 
049,208,245,032,228,255,240,251 
201,0849,249,0068,201,059,249,906& 
208,241,162,881,208,082,162,998 
154,251,169,888,135,193,133,172 
135,174,169,0208,1533,194,133,173 
169,852,155,175,155,259,153,183 


169,808,133,187,169,0802,133,188 
165,251,133,186,032,249,253,169 
060,133,178,169,083,133,179,096 
032,239 ,036,032,130,246,032,134 
037,076,233,036,032,239,036,166 
193,164,194,169,080,032,066,245 
032,134,0837,076,233,036,169,013 
232,218,255,165,251,201,001,248 
032,169,0088,032,188,255,169, 111 
9232,159,255,032,165,255,201,013 
240,026,032,066,231,184,080,243 
032,066,231,032,171,255,9024,144 
212,032,183,255,248,887,169,105 
160,195,032,030,203,169,088,133 
255,162,255,160,255,234,234,136 
288,251,202,288,246,198,255,208 
240,096,032,132,032,032,228,255 
201 ,020,2490,249,169,027,141,015 
144,169,037,133,058,169,255,133 
0853,165,254,201,210,240,003,032 
228,033,169,218,133,254,976,061 
035,234,234,234 ,234,234 ,234 ,234 
147,017,818,070,073,076,069,013 
018,278,065,9077,069,059,146,032 
0213,017,017,018,068,069,086,873 
067,069,058,146,032,049,046,032 
084 ,065,080,069,032,932,032,049 
049,841,013,032,832,032,032,9032 
032,032,032,850,046,032,070,07& 
079 ,050,080,089,932,040,056,941 
213,017,817,070,079,080,080,9089 
032,269,082,082,079,082,058,032 
034 ,042,041,021,039,047,220,033 
125,836,184,037,116,037,202,836 
207,056 





Listing 3. Basic-Lader »Joypaint« (Teil 1, Schluß) 


109 REM <D65> 
118 REM 


128 REM 


*#** JOYPAINT TEIL 2 
>> VOR DEM LADEN << <@34> 
>> POKE 44,39 EINGEBEN << <103> 
1358 FOR T=981& TO 9825:READ D:S=S+D:POKE T,D 
:NEXT <043> 
IF S<>93663 THEN PRINT" {CLR,3SDOWN}FEHLER 

IN DATAS !!"zEND <217> 
SYS 9682 <B13> 
DATA 144,141,014,144,096,832,178,033 <®30> 
DATA 169,000,170,149,064,232,224,006 <238> 
DATA 298,249,170,168,032,095,834,032 <B58> 
DATA 217,034,208,083,232,254,034,288 <®S52> 
DATA 124,032,016,834,032,9071,0832,208 <®55> 
DATA 909,032,002,032,208,004,169 220 <B&D> 
DATA 240,229,133,183,165,068,249,0887 <B96> 
DATA 032,098,034,169,220,240,003,0832 <B88> 
DATA 110,934,166,193,189,249,035,168 <129> 
DATA 1989,239,035,024,1901,064,2081,255 <122> 
DATA 240,006,291,166,176,006,208,08086 <124> 
DATA 169,000,240,082,169,166,133,064 <149> 
DATA 133,865,170,024,152,101,0866,201 <137> 
DATA 255,2490,886,201,143,176,806,208 <155> 
DATA 096,169,0900,240,002,169,143,133 <161> 
DATA 066,153,867,168,032,121,0834,133 <180> 
DATA 2648,168,2490,007,032,110,0834,169  <192> 
DATA 909,240,0083,032,098,034,164,0858 <184> 
DATA 932,042,035,165,070,240,128,169 <2z11> 
DATA 809,133,98790,240,132,165,069,281 <206> 
DATA 9292,240,014,169,808,162,881,134 <215> 
DATA 068,133,183,169,@81,133,070,2088 <244> 
DATA 131,162,080,169,004,208,2498,234 <239> 
DATA 900,020,280,255,255,255,008,081 <227> 
DATA 801,891,255,021,208,000,255,821 <228> 
DATA 080,020,255,201,200,008,388,0808 <223> 
DATA 200,020,000,000,000,008,202,008 <220> 
DATA 173,141,002,221,201,240,0086,1655 <®21> 
DATA 053,048,092,133,068,173,141,08092 046> 
DATA 201,004,240,818,165,197,201,824 <0S54> 
DATA 208,203,0876,211,836,291,055,248 <®62> 
DATA 067,201,063,248,068,895,173,015 <091> 
144,133,055,169,008,141,015,144 <@95> 
165,197,162,821,221,079,038,248 <113> 
016,202,208,248,173,141,082,281 <ı®1> 
084,248,237,165,055,141,015,144 <119> 
096,158,010,178,234,189,284,038 <151> 
133,848,199,085,0838,133,049,1655 <168> 
055,191,215,144,160,144,032,042 <143> 
035,1908,248,908,169,003,133,05B <ı155> 
096,169,843,208,249,169,804,141 <194> 
014,144,169,160,141,811,144,173 <188> 
815,144,133,851,141,015,144,1655 <186> 
197,201,064,249,250,281,885,248 <192> 
210,281,861,240,8108,281,815,248 <ı78> 
052,208,236,169,001,208,002,169 


<226> 
255,153,852,1685,851,9024,1981,852 <224> 


1408 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





Listing 4. Basic-Lader »Joypaint« (Teil 2, Schluß) 


REM 
REM 
REM 
REM 


ZZ 2 2 zz 2 a a ne ee 
*** w.. 
“.. *** 
*.r **%* 
REM *#*# **%* 
REM Kr 
PRINT" {CLR>" 

FOR T=8 TO 7:READ D:FOKE 7168+T,D:NEXT 
POKE PEEK (649) #256+69,0 

REM *** @ IN BILDSCHIRMPOSITION 

FOKE 38469,18 

REM #** BEI 8 KBYTE ERWEITERUNG 

REM *#*%* DEN FOKE DURCH 37957,18 

FOKE 36869, PEEK(36869)0R 15 

REM *#* ZEICHENGENERATOR INS RAM 
GOTO 258 

DATA 48,68,294,48,100,48,48,136 


MULTICOLOR-FIGUR FUER 
ALLE AUSBAUVERSIDNEN 





Listing 4. Basic-Lader »Joypaint« (Teil 2) Listing 5. Ein Multicolor-Demo 
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Stringprogrammierung in 


Maschinensprache Teil 2 





Hier ist ein weiterer Beitrag über effektives 


Programmieren. Auch er beschäftigt 


sich 


mit Strings und enthält einige neue Tips 
zur Garbage Collection. 


iesmal geht es darum, wie 

man Stringfunktionen selbst 
programmieren kann. Hierbei 
werden wir streng darauf ach- 
ten, die Müllstrings im Zaum zu 
halten, um unserem »Erzfeind«, 
der Garbage Collection, wenig 
Arbeit zu lassen. 


Noch einmal: Garbage Collection 

Ich möchte aber vorher noch 
etwas richtigstellen, was ich in 
der letzten Ausgabe wohl nicht 
klar genug ausgedrückt habe. 





Von vielen Leuten hört man den 
Vorschlag, ab und zu per FRE(0) 
eine Garbage Collection auszu- 
lösen, um ein Änsammeln von 
Müllstrings und eine lange Gar- 
bage Collection zu vermeiden. 
Wer allerdings den Beitrag 
aus der letzten Ausgabe auf- 
merksam gelesen hat, wird mir 
zustimmen: Dies ist absolut 
falsch! Denn die Dauer der Gar- 
bage Collection richtet sich ja 
hauptsächlich nach der Anzahl 
der definierten Strings und nicht 


]JSR$AEFA Klammer auf? 

JSR$ADIE Auswerten eines beliebigen Ausdrucks 
JSR $B6A3 Weitere Auswertung für Strings 
STX $FB Stringadresse LO-Byte 

STY $FC Stringadresse HI-Byte 
ıSTA $FD Länge des Strings 

]SR $AEFD Komma? 

JSR $B79E Hole BytewertinX 

TXA 

JSR $B47D Reserviere Speicherplatz für Endstring Adresse 

in $62/$63, Länge in $61 

LDY #$00 

LBL] 

CPY $61 Länge des Endstrings erreicht? 
BEQ LBL3 

CPY $FD Startstring komplett kopiert? 

BEO LBL2 

LDA($FB)Y kopieren des Startstrings 
STA($62),Y in den Endstring 

INY 

BNE LBLI unbedingter Sprung 

LBL2 

LDA #$20 Leerzeichen zum Auffüllen 
STA($62),Y Auffüllen 

CPY $61 Endstring voll? 

BEOQ LBL3 

INY 

BNE LBL2 Unbedingter Sprung 

LBL3 

J]SR$SAEFD Komma? 

JSR $B08B Variable suchen/einrichten 

LDX $0D 

BEQ LBLS Wenn kein String dann TYPE MISMATCH 
STA $FB Variablenadresse LO 

STY $FC Variablenadresse HI 

LDX #$02 

LDY #$02 drei Werte sind zu übertragen 
LBL4 

LDA $61,X kopieren des Descriptors von Endstring 
STAßFB)Y indie Stringvariable 

DEX 

DEY 

BPL LBL4 

JMP $AEFT Klammer zu? Rücksprung zu Basic 
LBL5 

JMP $AD99  »TYPE MISMATCH ERROR« 


Listing 1. Die FORMAT-Routine (nähere Erklärung im Text). 
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nach der der Müllstrings. Die 
von Hand ausgelöste Garbage 
Collection ist also nur unwesent- 
lich kürzer als die automatisch 
durchgeführte. Jede von Hand 
ausgelöste Müllabfuhr ist damit 
unnötig und kostet nur Zeit! Also: 
Lieber sehr viel Müll ansam- 
meln lassen und dafür mit mög- 
lichst wenig Stringvariablen ar- 
beiten. Eine Ausnahme ist natür- 
lich klar. Sollten Sie zeitkritische 
Teile in einem Programm haben, 
in denen Sie sich gar keine Gar- 
bage Collection erlauben kön- 
nen, solohnt essich, kurz vorher 
PRINT FRE(0) einzugeben. 
Problem: Strings auffüllen 

Vielleichthaben auch Sie in ei- 
nigen Programmen diese oder 
eine ähnliche Zeile entdeckt: 
170 IF LEN(AS)<40 THEN 
A$=A$+" ": GOTO 170 

Die Bedeutung ist klar: Hier 
soll der String A$ auf 40 Zeichen 
Länge aufgefüllt werden. Äber 
schon jetzt müßte es Ihnen eis- 
kalt den Rücken herunterlaufen. 
Angenommen, A$ hätte zu An- 
fang 20 Zeichen, dann werden 
mindestens 20 Müllstrings durch 
die ständige Zuweisung erzeugt. 
Sollte diese Auffüllung öfter 
durchgeführt werden, darf man 
sich nicht wundern, wenn bald 
der ganze Speicher voll ist. 

Eine weitere Lösung sieht 
meist so aus: 

10 H$=""40 * space" 
170A$= A$+ LEFTXH$,40—LEN 
(A$)) 

Schon sehr viel besser! Esent- 
stehen zwei Müllstrings (der alte 
Wert von A$ und einer, der 
durch die LEFT$-Funktion ent- 


. steht und nur Leerzeichen ent- 


hält). Eswird außerdem eine Va- 
‚riable H$ benötigt. 

Kurzein paar Worte zur Entste- 
hung des zweiten Müllstrings. 
Stringfunktionen werden über 
einen String-Stack abgewickelt. 
Auf diesem werden die String- 
descriptoren der Zwischener- 
gebnisse bei längeren String- 
operationen abgelegt. In unse- 
rem Fall wird zuerst der 
A$-Descriptor auf diesen String- 
Stack gelegt, dann der 
LEFT$-String erstellt und des- 
sen Descriptor abgelegt. Da- 
nach erst wird die 
Verknüpfung durchgeführt, die 
einen neuen String erstellt. Die 
beiden Descriptoren werden 
vom String-Stack entfernt, und 
die zugehörigen Strings finden 
sich als Müll im Speicher wie- 
der. Das Prinzip des String- 
Stacks ermöglicht eine hierar- 
chische Abarbeitung von String- 
funktionen. Es gilt dabei die Re- 
gel: 

Erst LEFT$, RIGHT$, MID$, 
dann + ähnlich dem »Punkt vor 
Strich« aus der Mathematik. 

Deswegen dürfen auch bei 
Stringoperationen Klammern 
gesetzt werden. 

Wir werden uns im folgenden 
nicht mehr mit dem String-Stack 


»+« 


beschäftigen, weil Sie ihn bei 
selbstprogrammierten Funktio- 
nen wohl nie benötigen werden. 
Außerdem ist der Umgang mit 
ihm nicht ganz so einfach, wie es 
im ersten Augenblick klingt. 

Nunaber zu unserem Beispiel. 
Will man auf der Basic-Ebene 
ohne PEEK und POKE arbeiten, 
ist die zweite Lösung die effek- 
tivste. Aber ich gebe mich, uner- 
sättlich wie ich bin, immer noch 
nicht zufrieden, denn es geht 
l. noch etwas schneller und 
2. mit nur einem einzigen Müll- 
string. 

Dazu müssen wir aber auf die 
Maschinensprachen-Ebene 
herunter. Werfen Sie mal einen 

Blick auf Listing 1. 

Diese FORMAT-Routine simu- 
liert einen neuen Basic-Befehl. 
FORMAT füllt einen String mit 
Leerzeichen, bis eine definierte 
Länge erreicht ist. Wenn ein 
String länger ist, wird er abge- 
schnitten. Der Aufruf muß aller- 
dings über einen SYS-Beifehl er- 
folgen. Steht FORMAT beispiels- 
weise im Kassettenpuffer, so 
führt 
CLR: SYS 826 (A$,250,A$) 
dazu, daß A$ 250 Leerzeichen 
enthält. 

A$S="HALLO”: SYS 
(A$,10,B$) 
läßt A$ wie es war, B$ enthält 
aber »HALLO« und 5 angehäng- 
te Leerzeichen, hat also die Län- 
ge 10. 

A$="TEST":N=1:SYS 8258 (A$, 
N,B$(0)) 
hinterläßt in B$(0) ein einsames 
T, der Rest wird abgeschnitten. 

Zusammengefaßt läßt sich al- 
so sagen, daß bei der Parame- 
terübergabe: 

(Stringl, N, String2) 

in String2 genau N Zeichen aus 
Stringl stehen, und daß gegebe- 
nenfalls String2 mit Leerzeichen 
aufgefüllt wird. 

Nur wenn »Stringl« den glei- 
chen Namen hat wie »String2«, 
entsteht ein Müllstring, nämlich 
der alte Inhalt der Stringvaria- 
blen. Für die, die es nun gar 
nicht mehr erwarten können, 
dieses Programm auszuprobie- 
ren, gibt es in Listing 2 einen 
Basic-Lader. Listing 1 kann di- 
rekt mit einem Assembler oder 
auch mit dem SMON eingege- 
ben werden. Anhand dieses 
Programms, das alle wichtigen 
ROM-Routinen, die mit Strings zu 
tun haben, aufruft, wollen wir 
nun die Programmierung sol- 
cher Routinen erarbeiten. 


826 


FORMAT analysiert 

Nehmen wir uns erst einmal 
die grundsätzliche Funktions- 
weise von FORMAT vor. Ein ein- 
faches Flußdiagramm ist in Bild 
l dargestellt. Dieszeigt aber nur 
die Verfahrensweise von FOR- 
MAT. Die eingebauten Sicher- 
heitsüberprüfungen sind hier 
nicht enthalten. Bekannt sind am 
Start der Stringl, seine Länge | 
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Listing 2. Basic-Lader der FORMAT-Routine 


und die gewünschte Länge des 
String? 

Im ersten Schritt werden 
tes für den String2reser t.So 
dann werden solange Zeichen 
vom Stringl in den String2 ko- 
piert, bis entweder der Stringl 
komplett kopiert wurde, oder 

















rs on voll ist. Im er- 
sten Fal d dann in einer zwei- 
ten Schleife der String2 mit Leer- 
zei aufgefüllt. Ganz zum 
Schl wird der Descriptor der 


eiten Stringvarlablen auf den 
String? gerichtet. Das klingt al- 
les ganz ei die Realisie- 





rung nach diesem Schema ist je- 
doch etwas umfangreicher 





Parameterübergaben 

Sehen wir uns nun die ersten 
Zeilen desListing l an. Der erste 
Befehl ist ein Sprung nach 
SAEFA. Dort steht eine ROM. 
Routine, die überprüft, ob als 
nächstes Zeichen ein »« folgt 
Dies ist an sich nicht notwendig, 
trägt aber erheblich zur Über- 
sichtlichkeit solcher Roulinen 
bei. Fehlt das ««, so wird SYN- 
TAX ERROR aus 

Da nächsten z 
Den” 












1, 7. ahler rechnung 
g aus und hinterläßt wichti- 
ge Parameter für $B79E 

utine prüft, ob der vorherige 
und st 
X-Register die LO- und 
egister die Hl-Adress 
enden Strings, 
ku die I 
Diese 


erm 


trın 





dem ein String war, 
dann im X- 
im Y-Re 


des r 
















beiden 
Werten, auch 


Strings bereit 
Sprungbefehle 
rer 
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wickelte Routinen weitergege 
ben werden können. Auch kön- 
nen Array-Werte wie AS(4) 
übergeben werden, ohne daß 
eine Spezialbehandlung nötig 
wäre. TYPE MISMATCH und 


ähnliche Fehlermeldungen wer- 





den vollautomatisch ausgege- 
ben 
Diesoeben gewonnenen Para- 








meter desersten Strings werden 
nun zwischengespeichert 
SAEFD prüft aufein Komma, und 
verhält s sich ansonsten genauso 
wie SAEFA 

Mit $B79E wird ein Ein-Byte- 
Wert, das heißt eine Zahl zwi 
schen 0 und 255, in das X-Regi- 
ster geholt. Bei größeren Zahlen 
wird ILLEGAL Screen an- 


ae hier 





jeze ıgt 





weiteren Parameter für 
92 besorgen wir uns er 
wir sie tatsächlich brau 








chen. 
Erstellen von String2 
Erinnern wir uns noch einmal 
an den Artikel aus der letzten 
Ausgabe. Dort wurde gesagt, 
daß Strings im Speicher von 
oben nach unten wachsen ! 
rend es beim Programm und bei 
den Variablen genau umgekehrt 









Ansıch müßten wirnunander 
unteren Grenze der Strings ge- 
nügend Bytes für String? durch 
Verändern der entsprechenden 
Pointer herstellen. Es geht aber 
auch einfacher. $B47D reser- 

viert so viele Bytes an der ent- 
sprechenden Stelle, wie ihr im 
Akku übergeben werden. Es 








wird sogar, wenn nötig, eine 
Garbage Collection durchge- 
führt, und schlimmstenfalis OUT 
OF MEMORY angezeigt, falls 
der Speicherplatz nicht reicht. 
Nach dem Aufruf der Routine 





Bild 1. Flußdiagramm der FORMAT-Routine 


$B47D stehen in den Bytes 
$62/$63 die Startadressen für 
den neuen String und in $6l des- 
sen Länge, die wir ja festgelegt 
haben. Wenn Sie genauer hin- 
schauen, bemerken Sie, daß 


DIDaheunn INNE 
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dies schon der komplette De- 
scriptor ist, der später nur noch 
in die Stringvariable, die String2 
enthalten soll, einkopiert wer- 
den muß. Somit ist es recht ein- 
fach, String2 zu erstellen, da wir 
ja jetzt seinen Bestimmungsort 
kennen und die Länge für späte- 
re Vergleiche zwischengespei- 
chert wurde. Diese Routine ist 
wohl der Kernpunkt eines jeden 
Maschinenprogramms, das 
Strings verwalten soll. 

Nun folgen zwei Schleifen, die 
genauso aufgebaut sind, wie die 
entsprechenden Teile im Fluß- 
diagramm. Die erste kopiert Zei- 
chen von Stringl in String2, die 
zweite füllt String2 mit Leerzei- 
chen auf. 

Sollten Sie die etwas unlogi- 
sche Struktur oder die beiden 
unbedingten Sprünge BNE nach 
den Inkrementanweisungen stö- 
ren: Dieses Programm durite, 
damit es frei verschiebbar ist, 
keine JMP-Befehle enthalten. 
Außerdem werden ohne Spezial- 
abfrage sämtliche Sonderfälle 
(Länge eines oder beider 
Strings gleich Null) berücksich- 
tigt. 


Parameterübergabe Il 

Nachdem String2 fertigge- 
stellt wurde, folgt der abschlie- 
ßende Teil, der den Descriptor 
von String2 in die entsprechen- 
de Stringvariabie hineinkopie- 
ren soll. 

Doch zuerst wieder der Test 
auf ein Komma. Die Routine 
$BO8B nimmt die Schlüsselposi- 
tionin der Übergabe von Strings 
an den BasicText ein. Sie ver- 
sucht eine Variable im Speicher 
und gibt deren Adresse im Akku 
(LO-Byte) und Y-Reaister (HI- 
Byte) zurück. Leider funktioniert 
diese Routine auch mit numeri- 
schen Variablen. Die nächsten 
beiden Befehle fangen diesen 
Fall ab. In der Zelle $0D steht 
(handelt es sich um eine Zahl), 
$00, beieinem String $FF. Haben 
wir keine Stringvariable vor uns, 
so müssen wir selber in die Rou- 
tine springen, die TYPE MIS- 
MATCH ERROR ausgibt ($AD 
99). Falls eine gesuchte Variable 
noch nicht existiert, wird sie in 
der Routine $B08B angelegt. 

Anschließend speichern wir 
in den zwei nun überflüssig ge- 
wordenen Speicherstellen $FB/ 
SFC die Adresse der Variablen 
ab. Dies ist an sich nicht die ge 
naue Adresse der Variablen, 
sondern, zu unserem Glück, die 
Adresse, an der der Stringde- 
scriptor stehen muß. Im vorletz- 
ten Schritt kopieren wir also den 
schon lange vorhandenen De- 
scriptor in die entsprechenden 
Speicherstellen. Somit ist die Ar- 
beit faktisch beendet, und wir 
prüfen noch, weil’s ordentlicher 
aussieht, ob auch ein »)« vorhan- 
den ist. Dadurch, daß wir mit 
JMP springen, ersparen wir uns 
auch nochein RTS, dasjaamEn- 
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de der Klammerzu-Betriebssy- 
stem-Routine steht. 

Ich glaube, daß ich mit diesem 
Beispiel das angenehme mit 
dem nützlichen verbunden ha- 
be, und hoffe, daß Sie jetzt so- 
wohl ein wenig schlauer, als 
auch um ein nützliches Pro- 
gramm reicher sind. 


So nicht ! 


Bevor noch einmal alle wichti- 
gen ROM-Routinen zusammen- 
gefaßt werden, möchte ich Ih- 
nen ein Beispiel geben, wieman 
sehr leicht Fehler in eine String- 
funktion einbauen kann, die 
nicht sofort erkennbar sind. 
Auch hier ist ein Blick auf die 
Garbage Collection ange- 
bracht. 

Wie oben schon erklärt wur- 
de, erzeugt die Zuweisung 
B$S=LEFTXA$,3) 
einen zweiten String, der nurdie 
drei ersten Zeichen von A$ ent- 
hält und auf den Descriptor von 
B$ zeigt. Manche Leser mögen 
jetzt folgende Ideen haben: 

Theoretisch ist es ja nicht not- 
wendig, einen zweiten String mit 
den drei Zeichen zu erstellen. 
Vielmehr könnte man ja den 
Descriptor von B$ auf dieselbe 
Position wie den von A$ zeigen 
lassen. Im B$-Descriptor wird 
dann die Stringlänge 3 angege- 
ben, während die in A$ gleich 
bleibt. 

Sodann wäre der Teilstring B$ 
in A$ enthalten und müßte nicht 








noch einmal im Speicher stehen. 
Ähnliches ließe sich auch mit 
den Routinen erreichen, die 
dann RIGHT$ und MID$ erset- 
zen. 

Doch vielleicht ahnt der eine 
oder andere unter Ihnen schon 
den Haken an dieser Geschich- 
te. Es ist wieder einmal (was 
sonst) die Garbage Collection, 
die uns einen Strich durch die 
Rechnung macht. 

Findet, aus welchem Grund 
auch immer, eine Garbage Col- 
lection statt, so passiert folgen- 
des: A$ und B$ zeigen auf den- 
selben Stringdescriptor. Je 
nachdem welcher String als er- 
ster im Programm definiert wur- 
de, wird einer der beiden zuerst 
aufgeräumt, nehmen wir malan, 
es sei B$. Wenn B$ nun aufge- 
räumt ist, wird sein Inhalt an die 
aktuelle »Äufräumgrenze« hoch- 
kopiert. Diese aktuelle Aufräum- 
grenze kann allerdings so un- 
günstig liegen, daß A$ von B$ 
teilweise überschrieben wird. 
Im nächsten Aufräumschritt wür- 
de A$ nicht an die aktuelle Auf- 
räumgrenze hoch, sondern un- 
ter sie herunter kopiert und so- 
mit weitere Strings zerstört... 
Dieses Spielchen würde sich 
dann biszum Ende der Garbage 
Collection hinziehen. (Oder bis 
einmal tatsächlich Müllstrings 
an den kritischen Stellen stehen, 
die ja überschrieben werden 
dürfen). 

Zugegeben, ich habe mir ge- 
rade den Worst Case, den aller- 
schlimmsten Fall, herausge- 
sucht, Er zeigt aber ganz deut- 





Bild 2. Alle im Listing 1 verwendeten Betriebssystem-Routinen 


lich folgende Grundregel, die 
beim Programmieren von 
Stringfunktionen beachtet wer- 
den soll: 

Zwei Stringdescriptoren dürfen 
niemals auf denselben String 
zeigen, sonst kann die Garbage 
Collection Stringinhalte zerstö- 
ren. 


Sie können sich ja spaßeshal- 
ber vor Augen führen, was man 
so alles an Stringsalat produzie- 
ren kann, indem Sie malsolchei- 
ne Routine programmieren. Mit 
den oben gegebenen Informa- 
tionen dürfte das nicht schwer- 
fallen. 

Noch fehleranfälliger als die 
neue LEFT$-Routine wären sol- 
che, die RIGHT$ und MID$ er- 
setzen sollen, weil da nämlich 
sowohl Länge als auch Adresse 
im  Stringedescriptor unter- 
schiedlich sind. Dann kann eine 
Garbage Collection zum völli- 
gen Chaos führen, esentsteht im 
wahrsten Sinne des Wortes 
Stringmüll. 

In solchen Fällen muß man, 
wie inunserer FORMAT-Routine, 
einfach den Teil des Strings ko- 
pieren, der weiterbearbeitet 
werden soll. Dies machen ja 
schließlich auch die originalen 
LEF''$-, RIGHT$- und MID$-Rou- 
tinen. 

Bild 2enthältnoch einmal eine 
Kurzbeschreibungaller verwen- 
deten Routinen, damit Sie bei 
der Programmierung von Funk- 
tionen nicht immer in der Be- 
schreibung des Beispiels nach- 
sehen müssen. 

Mit diesen Routinen läßt sich 
meiner Änsicht nach jede nur 
erdenkliche Stringmanipulation 
durchführen, auch wenn der 
Aufwand teilweise durch weite- 
re ROM-Routinen eingeschränkt 
werden kann. Äber das Arbei- 
ten über die Descriptoren derzu 
bearbeitenden Strings selbst, 
wie wir es in unseren Beispielen 
immer gemacht haben, reicht 
völlig aus. Auch benötigen wir 
nicht den schon erwähnten 
String-Stack. Wer trotzdem 
mehr über die interne Stringver- 
arbeitung des C 64 wissen 
möchte, der sollte sich ein ROM- 
Listing zur Hand nehmen und 
versuchen, die einzelnen Routi- 
nen nachzuverfolgen. 

So, ich glaube für heute 
reicht's wirklich. Aber ich ent- 
lasse Sie nicht, ohne Ihnen einen 
Vorgeschmack auf die nächste 
Ausgabe zu geben. Dort werden 
wir uns etwas genauer mit Ar- 
rays beschäftigen, allerdings 
nicht gar so ausführlich wie mit 
den Strings. Im Mittelpunkt steht 
nämlich das Suchprogramın IN 
TELLISEARCH. Dieses Such- 
programm bietet, neben einem 
sehr schnellen Suchalgorith- 
mus, viele Besonderheiten, die 
jede INSTR-oderähnliche Funk- 
tion vor Neid erblassen läßt. Das 
Ganze natürlich ausführlich do- 
kumentiert.(BorisSchneider/gk) 
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Nur zwei Adressenpaare wollen wir diesmal behandeln. Die haben es aber in sich. 


as letzte Mal haben wir den 

Zeiger in den Speicherzellen 
43-44 ($2B—$2C) kennengelernt, 
der den Änfang des Speicher- 
bereichs für Basic-Programme 
angibt. 

Die anschließenden Speicher- 
zellen-Paare bis 55-56 ($37—$38) 
zeigen auf weitere für Basic-Pro- 
gramme wichtige Speicherbe- 
reiche, die deswegen gemein- 
sam betrachtet werden sollten. 
Bild 1 stellt den Zusammenhang 
grafisch dar. Dabei ist wichtig zu 
wissen, daß ein Basic-Pro- 
gramm während des Eintippens 
oder Einladens von Disk bezie- 
hungsweise Kassette in den er- 
sten Block kommt. Während des 
Programmlaufs werden alle nor- 
malen Variablen in den Block 
geschrieben, alle Felder (Ar- 
rays) in den zweiten Block und 
schließlich der Text der Zei- 
chenketten (Strings) sozusagen 
rückwärts vom Ende des Ar- 
beitsspeichers (Block). Je nach 
Größe des Programmsundnach 
Anzahl der Variablen wandern 
die Blockgrenzen nach oben be- 
ziehungsweise die von Block 4 
nach unten. Wenn sie sich tref- 
fen beziehungsweise über- 
schneiden gibt es „OUT OF 
MEMORY«. 

Diese Blockbewegung ist in 
Bild 1 durch die Pfeile darge- 
stellt. 

Ich bin mir bewußt, daß gera- 
de dieses Thema in den letzten 
Ausgaben des 64’er sowohl im 
Kurs »Der gläserne VC 20« als 
auch im Assembler-Kurs behan- 
delt worden ist. Ich bin aber der 
Meinung, daß man es gar nicht 
oft genug erklären kann und 
nehme daher eine gewisse Wie- 
derholung in Kauf. 


Adresse 45-46 ($2D-$2E) 
Zeiger auf die Anfangsadresse des Spei- 
cherbereichs für Variable 


Dieser Zeiger, in der Low/ 
High-Byte-Darstellung, gibtdem 
Basic-Interpreter an, ab welcher 
Speicherzelle die Variablen ei- 
nes Basic-Programms gespei- 
chert sind. Da die Variablen di- 
rekt an das Basic-Programm an- 
schließen, zeigt dieser Zeiger 
natürlich gleichzeitig aufdas En- 
de des Basıc-Programms. 

Es muß betont werden, daßes 
sich nur um den Bereich der 
‚normalen« Variablen handelt, 
also nicht um Felder (Arrays). 
Anders als der Zeiger in 43-44, 
der auf fest definierte Speicher- 
zellen zeigt, liegt der Zeiger für 
den Variablen-Beginn nicht fest. 
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Je nach Länge des Programms 
wandert er nach oben. 

Sobald ein Programm einge- 
tippt oder aus einem externen 
Speicher (Diskette, Kassette) 
eingelesen ist, wird der Zeiger 
in 45-46 durch RUN auf ein Byte 
hinter das Programmende ge- 
setzt und alle Variablen werden 
in der Reihenfolge ihres Auftre- 
tens gespeichert. Da normaler- 
weise die Länge eines Basic- 
Programms während des Ab- 
laufs konstant bleibt, werden die 
Variablen in ihrer Position auch 
nicht gestört. 

Das bedeutet, daß sie sowohl 
vom Programm als auch vom 
Programmierer nach einer Un- 
terbrechung abgefragt werden 
können. Nur wenn das Pro- 
gramm modifiziert wird, wan- 
dert der Zeiger zusammen mit 
den Variablen entsprechend 
weiter. 

Den selben Effekt wie das 
oben erwähnte RUN haben übri- 
gens auch die Befehle NEW, 
CLR und LOAD Eine Ausnahme 
bildet das LOAD innerhalb ei- 
nes Programms, welches den 
Zeiger nicht zurücksetzt. Da- 
durch wird ein Äneinanderhän- 
gen von mehreren Programmen 
samt Variablen-Weiterverwen- 
dung unter bestimmten Voraus- 
setzungen ermöglicht. 

Die Bearbeitung der Varia- 
blen durch das Basic-Programm 
und die daraus resultierenden 
Kochrezepte für den Program- 
mierer sind in Tabelle | »Zwei 
Regeln fürnormale Variable«se- 
parat erläutert. 

Die verschiedenen Typen der 
Variablen und ihre Darstellung 
im Speicher finden Sie im 64er, 
Ausgabe 10/84, Seite 157 und 
noch ausführlicher in Ausgabe 
11/84, Seite 124 dargestellt und 
erklärt, 

Für diejenigen Leser, welche 
kein Monitor- beziehungsweise 
Disassembler-Programm haben 
oder benutzen können, ist in Ta- 
belle 2 »Darstellung der norma- 
len Variablen«eine kleine Anlei- 
tung gegeben, wie sie die Varia- 
blendarstellungmittels Basic an- 
schauen können. 


Adresse 47-48 (S2F$30) 
Zeiger auf die Anfangsadresse des Spei- 
cherbereichs für Feld (Arrays) 


Die Darstellung und Behand- 
lung der Felder werden in der 
nächsten Folge in gleicher Art 
und Weise behandelt, wie die 
normalen Variablen. 

(Dr. H. Hauck/aa) 





Zwei Regeln für »normale« Variable 


Alle Daten, die in einem Basic-Programm nicht in Form von 
READ-DATA-Anweisungen vorkommen, werden als »Variable« 
unmittelbar nach dem Basic-Programm abgespeichert. Wir un- 
terscheiden dabei zwei Typen: 

— normale Variable 
— Felder (Arrays) 

Wir betrachten hier nur die »normalen« Variablen. 

Sie erscheinen in dem Speicherbereich, dessen Beginn durch 
den Zeiger in den Zellen 45-46 und dessen Ende durch den Zei- 
ger in 47-48 angegeben wird, in derselben Reihenfolge, in wel- 
cher sie während des Äblaufes des Basic-Programms auftreten. 
Wenn Basic dann auf eine der bereits definierten (und abgespei- 
cherten) Variablen zurückgreifen soll, muß es den gesamten Va- 
riablenbereich von Anfang an absuchen, bis es den Namen der 
gesuchten Variablen gefunden hat. Wenn diese Variable ganzam 
Ende des Bereiches steht, kann dieser Suchprozeß recht lange 
dauern. 

Regel 1: 

Häufig vorkommende Variable sollen am Anfang des Variablen- 
bereichs stehen. Das wird dadurch erreicht, daß siealserste Va- 
riable in einem Programm »definiert« werden. Fallssie erstspäter 
im Programm gebraucht werden (aber dann häufig), werden sie 
trotzdem am Anfang des Programms angegeben, notfalls mit ei- 
nem beliebigen Wert, der später dann keine Rolle mehr spielt 
und ersetzt wird. Man nennt das einen »Dummy«Wert. 

Die Felder-Variablen stehen direkt nach den »normalen« Varia- 
blen. Auch hier kann der gewiefte Programmierer Gutes tun. 
Wenn nämlich nach einer Definition eines Feldes später im Pro- 
gramm noch normale Variable dazukommen, ist natürlich zuerst 
kein Platz für sie da. Das Betriebssystem des Computers muß erst 
alle Felder-Variablen weiterschieben, bevor die Neuankömmlin- 
ge in dem dadurch erweiterten Variablenbereich gespeichert 
werden können. Auch das kostet unnötig viel Zeit. 

Regel 2: 

Alle normalen Variablen sollen als erste in einem Programm 
definiert werden. Wer also drauflos programmiert, sollte zumin- 
dest am Ende das Programm so umbauen, daß diese simple Re- 
gel erfüllt wird. 


Darstellung der normalen Variablen 


Die normalen Variablen kommen in drei Arten vor: 
— ganzzahlige Variablen 
— Gleitkomma-Variablen 
— String-Variablen (Zeichenketten) 

Der Unterschied zwischen den drei Typen ist in den 
Commodore-Handbüchern gut erklärt, undich verzichte hier auf 
eine Wiederholung. Ich will vielmehr direkt zeigen, wie die Va- 
riablen im Speicher abgelegt sind. 

Wir können den Speicher direkt sichtbar machen. 

Einmal geht das in Maschinencode mittels eines Monitors be- 
ziehungsweise Disassemblers. 

Zum anderen aber geht das auch in Basic und zwar mit folgen- 
dem Trick, den ich Th. und M.L. Beyer (MC 10/1983) abgeschaut 
habe. Er wird im folgenden allerdings nur für den C 64 beschrie- 
ben, die Methoden für den VC 20 zeige ich das nächste Mal. Der 
Inhalt der Darstellung ist jedoch bei beiden Rechnern identisch, 
nur die »Sichtbarmachunge ist verschieden. 

Wir verlegen den Beginn des Basic-Variablenspeichers ein- 
fach auf den Beginn des Bildschirmspeichers. Auf diese Weise 
können wir zwar kein vernünftiges Programm laufen lassen, aber 
alle direkt eingegebenen Variablen-Definitionen werden sofort 
sichtbar, weil sie eben im Bildschirmspeicher stehen. 

Wir erreichen die Verlegung des Speichers durch »Verbiegen« 
der Zeiger in den Zellen 45-46 und 47-48. Die Bedeutung dieser 
Zeiger ist ja im Artikel erklärt. 
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Beim C 64 beginnt der Bildschirmspeicher ab 1024. In Low/ 
High-Byte Darstellung ist das 0/4 (1024/256=4, Rest 0). 
Geben Sie bitte direkt ein: POKE 46,4 :POKE 48,4 

Das Low-Byte in 45 und 47 können wir weglassen, daes jain bei- 
den Fällen 0 ist. Wenn Sie jetzt den Bildschirm löschen, den Cur- 
sor ungefähr in die Mitte des Bildschirms fahren und wiederum 
direkteingeben: VARIABLE = 3und die RETURN Taste drücken, 
dann erscheinen oben sieben Zeichen. Bitte schalten Sie mit der 
SHIFT- und Commodore-Taste auf den zweiten Zeichensatz um, 
jetzt können wir besser lesen. Aus anderen Kursen wissen Sie 
wahrscheinlich, daß Variable mit sieben Byte dargestellt wer- 
den. Inder Tatsehen wir oben die ersten beiden Buchstaben des 
Variablennamens VA und fünf weitere Zeichen. Wir wollen aber 
systematisch vorgehen und uns zuerst die ganzzahligen Varia- 
blen anschauen. 


Ganzzahl-Variable 

Wiederholen Sie bitte den Vorgang (Löschen, Cursor auf Mitte, 
2. Zeichensatz). Jetzt geben Sie eine Ganzzeit-Variable ein: 
VA%=3 

Nach RETURN sehen wir als erstes Zeichen ein reverses V, 
danneinreverses A, den Klammeraffen @, daskleinecundnoch- 
mals zwei @. Die beiden ersten Zeichen des Variablennamens 
(besteht er nur aus einem Zeichen, wird mit einer 0 aufgefüllt) 
werden mit ihrem ASCII-Code eingegeben, zu dem bei Ganz- 
zahl-Variablen zur Kennzeichnung einer solchen die Zahl 128 ad- 
diert wird. 

Schauen Sie in der ASCII-Tabelle (64er, Ausgabe 7/84) nach: 
Das V hat 86, um 128 erhöht gibt das 214. Wir arbeiten hier aber 
im Bildschirmspeicher, der die Zahlen auf seine eigene Weise in- 
terpretiert, nämlich als Bildschirmcode. Der BildschirmcodeTa- 
belle entnehmen wir dasZeichen für den Wert 214, und dasistdas 
invertierte V. Für das A können Sie das selbst nachvollziehen. Al- 
so: In unserer Darstellung erkennen wir Ganzzahlvariableanden 
invertierten Zeichen des Namens. Das 3. und 4. Zeichen sind das 
High-und Low-Byte des Variablenwertes und zwar im Bildschirm- 
code. Inunserem Beispiel der 3ist das High-Byte 0, alsoder Klam- 
merafie @, das Low-Byte 3, also das c. Die restlichen drei Bytes 
sind mit 0 aufgefüllt. Wenn Sie mit dem Cursor auf die 3 fahren, 
es mit einer überschreiben und RETURN drücken, verwandelt 
sich dascineine. Beim Überschreiben mit 255 erscheintals4. By- 
te das Zeichen für den Bildschirmcode 255. Beim Überschreiben 
mit 257 ändern sich beide Bytes. Das 3. (High-)Byte springt aufa 
(=]), das 4. (Low-)Byte ebenfallsaufa. Nun, 1x256+1 = 257. Wäh- 
rend, wie bewiesen, das Low-Byte von 0 bis 255 gehen kann, sind 
beim High-Byte nur Werte zwischen 0 und 127 zugelassen. Die 
Werte ab 128signalisieren negative Zahlen. Probieren Sie esaus: 
127x256 + 255=32767 

Ein Überschreiben mit 32767 resultiert in einer Darstellung der 
Zeichen für den Bildschirmcode 127und 255. Der Wert 32768 wird 
nicht mehr akzeptiert. 


Negative Zahlen 

Überschreiben Sie bitte die letzte Zahl mit 0. Wie zu erwarten 
war, sind Byte 4 und $ jetzt 0 (Klammeraffe). Wenn Sie jetzt mit — 
überschreiben erscheint für beide Bytes das Zeichen mit dem 
Bildschirmcode 255. Bei—2 sehen wir die Zeichen mit den Code- 
Werten 255 und 254. Sie sehen also, daß die negativen Zahlen für 
ganzzahlige Variable sozusagen vom Ende der Tabelle her dar- 
gestellt werden, wobei die höchste negative Zahl wieder 32787 
ist. Diese »Rückwärtszählung« ist bedingt durch die Methode der 
negativen Zahlendarstellung im Zweierkomplement. Der Platz 
und die Gelegenheit verbieten esmir, näher darauf einzugehen. 
Aber ich glaube, unser kleines Experiment hat Ihnen zumindest 
von der Darstellung her den Zusammenhang gezeigt. Im folgen- 
den die Zusammenfassung der ganzzahligen Variablen. 
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Erstes Zweites High- Low- 


Zeichen des Byte des Variablen- 0 0 0 

Variablen-Namens wertes 

(ASCII-Wert + 128) | 
ih 7 ie re 


Gleitkomma-Variable 

Ich hoffe, Sie verzeihen mir, wenn ich diese Darstellung heute 
überspringe. Sie ist nämlich nicht ganz leicht zu verstehen, und 
ich möchte sie lieber dann im Detail erklären, wenn wir zur Dis- 
kussion der Speicherzellen 97-101, nämlich des Gleitkomma- 
Akkumulators kommen. Da geht es in einem Stück. Als Vorge- 
schmack gebe ich jetzt nur die Zusammenfassung an. 


1 2 3 | 


m 
Erstes Zweites 


Zeichen des  Exponent | Mantisse mit Genauig- 


Variablen-Namens + 129 ' keit von 32 Dualstellen, 
(ASCII-Wert) 1. Bit des 1. Bytes ist 
das Vorzeichen 
EEE EEE) VERBERESEEE BE rer er 
String-Variable 


Zuerstisteserforderlich, den Computerinden Anfangszustand 
zurückzusetzen. Wenn Sie einen RESET-Schalter haben, bitte die- 
sen drücken, sonst aber aus- und einschalten. Wir geben nach 
Löschen des Bildschirms in der unteren Hälfte direkt ein: 
ZX$="A" <RETURN> 

Fahren Sie bitte jetzt mit dem Cursor auf das A undändernden 
StringuminBC. Nach RETURN verwandeltsich dasaindas b,das 
4. Zeichen ebenfalls. Die ersten beiden Zeichen sind also wieder 
der Name der Variable. Um zu kennzeichnen, daß eseine String- 
Variable ist, erscheint das 2. Zeichen des Namens invertiert. Wie 
oben entsteht es dadurch, daß zum ASCII-Code die Zahl 128 ad- 
diert wird. Diese Zahl wird aber wieder als Bildschirmcode inter- 
pretiert und entsprechend angezeigt (vergleichen Sie es mit den 
ASCH-und Bildschirmcode-Tabellen). Dasdritte Zeichen gibt die 
Länge des Strings an, also im ersten Fall mit a (=1 im Bildschirm- 
code), im 2. Fall mit b (=2). Zeichen 4 und 5 geben als Low- und 
High-Byte die Adresse an, bei der begonnen wird, den Text des 
Strings zu speichern. Wir hatten die beiden Fälle: 
1.2X$= "A 
Viertes Zeichen: (Bildschirmcode: 255) und 5. Zeichen: (Bild- 
schirmcode 156) ergibt als Adresse 40959. 

2. 2X$ = "BC" 
Viertes Zeichen: (Bildschirmcode 253) und 5. Zeichen: (Bild- 
schirmcode 156) ergibt als Adresse 40957. 

Der Text der Zeichenketten wird am Ende des Arbeitsspei- 
chers (40959 beim C 64) abgelegt und zwar von hinten nach vorn. 
Mit PRINT PEEK(40957);PEEK(40958);PEEK(40959) drucken wir 
den Inhalt dieser Speicherzellen aus und erhalten: 66 67 65. Im 
ASCII-Code ist das: BC A. Die Zusammenfassung für String- 
Variable sieht so aus: 
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D erSID (Sound Interface Devi- 
ce) ist funktionell an das klas- 
sische Konzept von Moog ange- 
lehnt. Dadurch ist seine Arbeits- 
weise leicht verständlich. Bild 1 
zeigt das Blockschema des SID 
Dieses Schema dient dazu, den 
Fluß der ÄAudio-Signale zu veran- 
schaulichen. Die Funktions- 
blöcke waren in ähnlicher Form 
bereits Bestandteile des 
Synthesizer-Schemas aus Teil 2. 
Den linken Teil des Schemas bil- 
den drei identische, voneinan- 
der unabhängige, Funktions- 
gruppen. 

Eine solche Gruppe setzt sich 
auseinem DCO (Digital Control- 
led Oseillator), einem Amplitu- 
denmodulator (oder auch DCA 
= Digital Controlled Amplifier) 
undeinem Hüllkurvengenerator 
(EG = Envelope Generator) zu- 
sammen. Der DCO kann wahl- 
weise eine von vier Kurvenfor- 
men erzeugen: Dreieck, Säge- 
zahn, Rechteck und Rauschen. 
Dabei ist das Tastverhältnis der 
Rechteckkurve steuerbar. Unter 
dem Tastverhältnis versteht man 
das Verhältnis zwischen der 
Länge des Kurvenabschnitts mit 
hoher Spannung zur gesamten 
Periodenlänge. Eine symmetri- 
sche Rechteckkurve hat dem- 
nach ein Tastverhältnis von 50 
Prozent. Eine Veränderung im 
Tastverhältnis T bewirkt eine 
Klangfarbenänderung. So klingt 
eine Rechteckkurve mit T = 50 
Prozent voluminös. Bewegt man 
sich mit T in Richtung 0. Prozent 
oder 100 Prozent, so wird der 
Klang zunehmend obertonrei- 
cher aber dünner, da der Anteil 
des Grundtons abnimmt. Einen 
besonders lebendigen Klang 
erhält man durch dynamische 
Veränderung des Tastverhält- 
nisses, was zwar in der SID- 
Hardware nicht realisiert, aber 
softwaremäßig möglich ist. 


Funktioneller Auf- 
bau des SID 


Der Hüllkurvengenerator 
beeinflußt über den Amplitu- 
denmoduläator den zeitlichen 
Lautstärkeverlauf der vom DCO 
kommenden Kurve. Die Hüllkur- 
ve wird nach dem bekannten 
ADSR-Schema parametrisiert. 


Synchronisation und Ringmodulation 
Die senkrechten Verbindun- 
gen von DCO] zu DCO2, von 
DCO2 zu DCO3 und von DCO3 
zurück zu DCOI können einzeln 
zu- oder abgeschaltet werden. 
Sie dienen Spezialeffekten, die 
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das Spektrum des SID beträcht- 
lich erweitern. Im Normalfall, 
wenn diese Steuerpfade unwirk- 
sam geschaltet sind, schwingen 
die drei DCOs unabhängig von- 
einander, jeder inseiner vorpro- 
grammierten Frequenz und Kur- 
venform. Im Falle der Synchronisa- 
tion zwingt der synchronisieren- 
de DCO einen weiteren DCO 
dazu, gleichphasig zu schwin- 
gen. In Bild 2erzeugt DCOl eine 
Sägezahnschwingung von 100 
Hz und synchronisiert DCO2, 
der ebenfalls auf Sägezahn, 
aber 350 Hz eingestellt ist. Nach 
jeweils dreieinhalb Perioden 
wird DCO 2 gezwungen, eine 
neue Periode anzufangen. 
DCO2 erzeugt so eine viel kom- 
plexere Kurvenform, als er es 
ohne Synchronisationtun würde. 
Variiert man nun noch die Fre- 
quenz eines der beiden DCOs, 
während man die des anderen 
konstant hält, so erzeugt DCO2 
ständig andere Kurveniormen. 
Man erhält damit schwer zu be- 
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aber meistens 


schreibende, 
»elektronisch« (im Sinne von »un- 
natürlich«) klingende Muster. 
Wenn man zu jedem Zeitpunkt 
die Werte zweier Kurvenzüge 


miteinander multpliziert, so 
spricht man von Ringmodulation. 
Dieser Vorgang hat eine Ähn- 
lichkeit mit der Modulation ei- 
ner Schwingung mit einer Hüll- 
kurve, wie sie im SID auch vor- 
kommt. Die Hüllkurve istaberei- 
ne Funktion, diesich, verglichen 
mit dem Signal das sie modu- 
liert, nurlangsam verändert. Da- 
durch bleibt bei dieser Modula- 
tion der Klangcharakter desmo- 
duliertenSignalserhalten, esän- 
dert sich nur seine Lautstärke. 
Bei der Ringmodulation dage- 
gen ist das modulierende Signal 
von ähnlicher Beschaffenheit 
wie das modulierte Signal. Bei- 
de Signale dürfen ähnliche Fre- 
quenzen haben und als Kurven- 
züge auch positive und negative 
Werte annehmen, wogegen eine 
Hüllkurve immer nur nicht- 





Bild 1. Blockschema des SID 





Bild 2. Die Synchronisation 






7 
IE / 1 





negative Werte hat. Bei der 
Ringmodulation geht im Allge- 
meinen der Klangcharakter bei- 
der beteiligten Kurven verloren; 
esentstehtein ganzneuerKlang. 
Man macht sich das am besten 
anhand zweier Sinusschwingun- 
gen klar: 
sin(@,tÜsin(wst)=%lcoslwj-w)t — 
cos(@; + @7Jt) 

Das bedeutet, daß man durch 
Multiplikation zweier Sinus- 
schwingungen ein Signalge- 
misch erhält, das aus Schwin- 
gungen mit der Summe und der 
Differenz der ursprünglichen 
Frequenzen besteht. Die ur- 
sprünglichen Frequenzen ver- 
schwinden dabei vollkommen. 
Die Formel liefert auf der rech- 
ten Seite zwar CosinusTerme, 
für den Klang ist das allerdings 
unerheblich, da sich Sinus und 
Cosinus nur durch eine Phasen- 
verschiebung unterscheiden. 
Unterzieht man nun andere Kur- 
venformen einer Ringmodula- 
tion, so muß man alle Obertöne 
der einen Kurve mit allen Ober- 
tönen deranderen Kurve gemäß 
der obigen Formel verrechnen. 
Dadurch entsteht ein sehr reich- 
haltiges neues OÖbertonspek 
trum. Die neuen Obertöne ste- 
hen dabei nicht mehr in harmo- 
nischen, das heißt ganzzahligen 
Verhältnissen zueinander. Aus 
diesem Grund eignen sich Ring- 
modulatorklänge auch kaum zur 
Wiedergabe von Melodien. Im 
natürlichen Umfeld findet man 
unharmonische Obertonverhält- 
nisse zum Beispiel bei Glocken, 
Gongs und schwingenden Me- 
tallplatten. Zu deren Nachah- 
mung eignen sich die Ringmo- 
dulatorklänge. 

Beim SID steht zur Ringmodu- 
lation nur die Dreiecksschwin- 
gung zur Verfügung. Wenn 
DCO!I den DCO2 moduliert, ist 
das Ringmodulatorprodukt nur 
dann hörbar, wenn DCO2 auf 
Dreieckskurve eingestellt ist. 
Noch komplexere Klänge erhält 
man beim SID durch Einbezie- 
hen aller drei DCOs in die Mo- 
Aulationskette, wobeiman durch 
den Signalpfad DCO3 nach 
DCO1 den Kreis auch noch 
schließen kann. Die Ergebnisse 
werden dann allerdings schwer 
vorhersagbar, lassen also noch 
genug Raum für Fxperimente 
und Überraschungen. 

Filterung 

Leider hat der SID nur ein ge- 
meinsames Filter für die drei 
DCO-EG-AM-Gruppen. Möchte 
man unterschiedliche Klangbil- 
der zur gleichen Zeit erzeugen, 
so kann man nur durch die Wahl 
von Kurvenform und Hüllkurve 
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differenzieren. Man hat aber im- 
merhin die Wahl, ob man die 
DCO-EG-AM-Produkte  über- 
haupt durch das Filter schickt 
oder am Filter vorbei direkt zum 
Ausgang. Diese Funktion erfül- 
len im Blockschema die Schalter 
»FILTER 1«, »FILTER 2« und »FIL- 
TER 3. Das Filter kann als Hoch- 
paß, als Bandpaß oder als Tief- 
paß wirken, wobei die Funktio- 
nen auch parallel schaltbar 
sind. So erhält man zum Beispiel 
aus der Kombination Hochpaß 
und Tiefpaß eine sogenannte 
Bandsperre (oder »Notch- 
Filter), die ein schmales Band 
aus dem Gesamtspektrum un- 
terdrückt. Essind die Parameter 
Eck- beziehungsweise Mittenfre- 
quenz (für HP BP und TP gemein- 
sam)sowie die Resonanz program- 
mierbar. Ein weiteres Qualitäts- 
kriterium eines Filters ist seine 
Steilheit. Diese Größe be- 
schreibt, wie schnell ein Filter in 
der Umgebung der Eck- bezie- 
hungsweise Mittenfrequenz vom 
durchlassenden in den sperren- 
den Zustand übergeht. 

Als Faustregel gilt, daß ein Fil- 
ter um so »besser« klingt, je stei- 
ler es ist. Beim Hoch- und Tief- 
paß desSID beträgt die Steilheit 
12 db/Oktave, beim Bandpaß 6 
dB/Oktave. 12 dB/Oktave be- 
deuten, daß zum Beispiel im 
Übergangsbereich des Tiefpas- 
ses ein Signal um das Vierfache 
abgeschwächt wird, wenn seine 
Frequenz verdoppelt wird. 6 
dB/Oktave bedeuten eine Ab- 
schwächung (oder Anhebung) 
um das Zweifache bei Frequenz- 
verdopplung. Die Filtersteilheit 
ist im Allgemeinen und auch 
beim SID fest vorgegeben. Zur 
Orientierung sei noch erwähnt, 
daß die Filter im professionellen 
Synthesizer meistens eine Steil- 
heit von 24 dB/Oktave haben. 

Die gefilterten oder ungefil- 
terten Signale imSID werden auf 
einen DCA geführt, wo man 
noch die Gesamtamplitude des 
Ausgangssig nals programmie- 
ren kann. Über einen Änalog- 
eingang kann manauchnochein 
externes Signal gefiltert oder 
ungefiltert zumischen. Dieses Si- 
gnal könnte zum Beispiel von ei- 
nem zweiten SID stammen. 

Gegenüber dem imersten Teil 
vorgestellten klassischen Syn- 
thesizerkonzept findet man im 
SID keinen LFO, mit dem man 
Frequenz, Amplitude oder ei- 
nen Filterparameter modulieren 
könnte. Diese Funktion kann 
man aber rein softwaremäßig 
realisieren. Eine Hilfe dazu kön- 
nen DCO3 und EG3 sein. Man 
kann zu jedem Zeitpunkt den 
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Amplitudenwert von DCO3 und 
von EG3 abfragen. Program- 
miert man DCO3 als LFO, das 
heißt aufeine sehr niedrige Fre- 
quenz, so kann man die Ämplitu- 
denwerte von DCO3 (mit geeig- 
neter Skalierung) zur Frequenz 
vonDCOl oder DCO2addieren. 
Tut man das in regelmäßigen 
Zeitabständen und mehrfach in- 
nerhalb einer Periodendauer 
von DCO3, so kann man damit 
ein Vibrato realisieren. 

Auf gleiche Weise kann man 
auch die von EG3 gelieferte 
Hüllkurve zur Modulation bei- 
spielsweise des Filters heranzie- 
hen. Beide Möglichkeiten erfor- 
dern allerdings zusätzliche 
schnelle Programme, die sich 
nur in Maschinensprache reali- 
sieren lassen. 

Wenn man DCO3 und/oder 
EG3zu Modulationszwecken be- 
nützt, möchte man das von AM3 
produzierte Signal unter Um- 
ständen nicht hören. Dazu kann 
man es mit dem zusätzlichen 
Schalter »AUS« unterdrücken. 

Im letzten Teil wurdeschonan- 
gesprochen, daß ein digitaler 
Synthesizer wie der SID nicht 
durch Potentiometer und durch 
Spannungen beeinflußt wird, 
sondern durch digitalisierte Pa- 
rameter. Dazu besitzt der SID 29 
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Register mit einer Länge von 8 
Bit. Davon können 25 nur be- 
schrieben werden (ihre Inhalte 
steuern das Verhalten des SID) 
und 4 nur gelesen werden. Die 
29 Register werden durch die 
Adreß-Decodierungs-Hardwa- 
re auf dem CPU-Speicherbe- 
reich $D400 bis $D41C abgebil- 
det (dezimal: 54272 bis 54300). 


Die Steuerung 
des SID 


Die SID-Register lassen sich 
so mit allen hauptspeicherbezo- 
genen Maschinenbefehlen oder 
mit PEEK und POKE anspre- 
chen. Da in einzelnen Registern 
oft mehrere Bits mit unterschied- 
licher Bedeutung zusammenge- 
faßt sind, erfordert ihre Pro- 
grammierung ein hohes Maß an 
maschinennahem Denken, egal 
ob in Basic oder in Maschinen- 
sprache programmiert wird. 

Die Tabelle ] zeigt die Bedeu- 
tung der einzelnen Register im 
Detail. Der Registersatz gliedert 
sıch in drei mal sieben Register 
zur Steuerung der drei DCO- 
EG-AM-Gruppen für die drei 
Stimmen, in vier Register zur Fil- 








ige allgemeine Grundlagen aus dem 
puter« dargestellt worden sind, wird in 
Synthesizer Chip SID (Sound Interface Device) 


tersteuerung und in vier Lese- 
register. Die sieben Register zur 
Steuerung einer DCO-EG-AM- 
Gruppe haben für alle drei Stim- 
men den gleichen Aufbau und 
die gleiche Bedeutung. 
Frequenz low/high (Register 0 und 1) 
Die beiden Register 0 und | 
steuern die Frequenz von DCO1 
mit einer Genauigkeit von 16 Bit. 
Register 0 enthält das nieder- 
wertige, Register ] das höher- 
wertige Byte einer 16-Bit-Größe 
F. Zwischen der Ausgangsire- 
quenz f und der Zahl F besteht 
der Zusammenhang: 
() {=FxT/ 2124 (Hz) 
Dabei ist T die Taktfrequenz 
der CPU, die auch am SID an- 
liegt. Sie beträgt bei der deut- 
schen Version des C 64 
0,985248 MHz 
Damit gilt: 
(©) f=Fx 0,0587254 (Hz) 
oder 
(3) F=fx 17.0284 
Die Gleichungen (2) und (3) 
zeigen, daß sich die Frequen- 
zen der DCOs sehr fein, in 
Schritten zu zirka 1/17 Hz, pro- 
grammieren lassen. Möchte 
man eine vorgegebene Fre- 
quenzf(im Beispiel FAUS) erzeu- 
gen, so errechnet man F nach 
(3), 
10 FAUS = 440 
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Tabelle 1. Die Register des SID 
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Tabelle 2. Hüllkurvengeschwindigkeiten 


20 F= FAUS * 17.0284 
man zerlegt F in das Low- 
das High-Byte, 
30 F = INT(F+0.5) :REM RUN- 
DUNG 
40 HI = INT(F/256) 
50LO = F— 256*HI 
und besetzt Register 0 und | da- 
mit 
60 SID = 54272 :REM BASIS- 
ADRESSE 
70 POKE SID,LO 
80 POKE SID+1,HI 
Pulsweite low/high (Register 2 und 3) 
Der Inhalt dieser Register 
steuert das Tastverhältnis der 
Rechteckkurve. Er ist nur dann 
bedeutend, wenn als Kurven- 
form das Rechteck gewählt 
wird. Die Pulsweite kann auf 12 
Bit genau festgelegt werden. Re- 
gister 2enthält das Low-Byte, Re- 
gister 3 das High-Byte, von dem 
nur die unteren 4 Bits (P8 bis Pl]) 
berücksichtigt werden. Zwi- 
schen der I2-Bit-Größe P und 
dem Tastverhältnis PAUS be- 
steht der Zusammenhang: 
(4) PAUS = P / 40.95 (%) 
oder 
(5)  P = PAUS * 40.95 
Die Programmierung gestaltet 
sich danninder Praxisanalogzu 
der der Frequenz: 
90 PAUS = 50 
100 P = PAUS * 40.95 
110 P = INT(P+0.5) :REM RUN- 
DUNG 
120 HI = INT (P/256) 
130 LO = P — 256*HI 
140 POKE SID +2,LO 
150 POKE SID +3,HI 


und 


Kontrollregister (Register 4) 

Jedes Bit dieses Registers hat 
eine eigene Bedeutung. 
GATE (Bit 0) 

Dieses Bit steuert den Hüllkur- 
vengenerator EG]. Wird es ge- 
setzt, startet EGl eine Attack- 
Decay-Sequenz. Die Hüllkurve 
bleibt anschließend auf dem 
programmierten Sustain-Pegel, 
bis das GATE-Bit zurückgesetzt 
wird. Durch das Zurücksetzen 
geht die Hüllkurve in die Re- 
lease{Auskling-)Phase. 
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Synchronisation (Bit 1) 

Wird es gesetzt, so wird DCOIl 
von DCO3, wie schon beschrie- 
ben, synchronisiert. 
Ringmodulation (Bid 2) 

Wird es gesetzt, so erzeugt 
DCOI1 das Ringmodulatorpro- 
dukt der Dreieckskurven von 
DCO3 und DCOL. Diese wird al- 
lerdings nur dann hörbar, wenn 
als Kurvenform von DCOI das 
Dreieck gewählt wird. 

Test (Bit 3) 

Bei gesetztem Test-Bit wird 
DCOI auf Nullpegel gezwun- 
gen. Er erzeugt in diesem Zu- 
stand keine Schwingung. Man 
kann DCOI damit softwarege- 
steuert synchronisieren, um, 
ähnlich wie durch die Synchro- 
nisation durch DCO3, komplexe- 
re Kurvenformen zu erhalten. 
Kurvenform (Bit 4 bis 7) 

Durch Setzen eines dieser 4 
Bits wählt man eine der Kurven- 
formen Dreieck, Sägezahn, 
Rechteck oder Rauschen. Es 
muß mindestens eines dieser 
Bits gesetzt sein, damit über- 
haupt etwas hörbar wird. Eine 
Eigenart desSID ist es, daß sich 
die Kurvenformen nicht additiv 
verhalten. Werden mehrere der 
Bits 4 bis 7 zugleich gesetzt, so 
erzeugt der SID eine Kurven- 
form, deren Amplitudenwerte 
man durch logische AND-Ver- 
knüpfung der Amplitudenwerte 
der einzelnen Kurven erhält. 
Diese AND-Verknüpfung muß 
man sich bitweise auf die Ampli- 
tudenwerte darstellenden Bytes 
angewandt vorstellen. 

Das Rauschen verdient noch ei- 
ne besondere Betrachtung. Bei 
Rauschen kann man nicht von ei- 
ner Frequenz im üblichen Sinne 
reden. Dennoch ist der Charak- 
ter des SID-Rauschens über die 
Größe F in Register 0 und ! be- 
einflußbar. Rauschen wird im 
SID durch eine Quasi-Zufalls- 
folge von numerischen Werten 
realisiert. Die Rate, mit der der 
DCO diese Zufallszahlen er- 
zeugt, ist genau die durch F pro- 
grammierte Frequenz. Ein Rau- 


1988 SI=54272 ıREM BASISADRESSE <248> 
118 : <168> 
128 REM FREQUENZ <119> 
138 READ FAUS :F=INT (FAUS#17.0284+0.5) <2356> 
148 HI=INT(F/256) :1L0=F-256*HI <183> 
158 POKE SI,LO :POKE SI+1,HI <149) 
168 : <218> 
178 REM PULSWEITE (TASTVERHAELTNIS) <205> 
188 READ PAUS :P=INT (PAUS*48.95+8.5) <216> 
198 HI=INT(P/256) :LO=P-256#HI <253> 
208 POKE SI+2,LO :POKE SI+35,HI <165> 
218 : <812> 
228 REM WELLENFORM <1922> 
238 READ WF:WF=WF AND 254 :REM GATE AUS <877> 
248 : <D42> 
258 REMADSR <179> 
268 READ A:READ D:POKE SI+5,16*A+D <149> 
278 READ S:READ R:POKE SI+&,16*5+R <215> 
288 : <883> 
298 REM FILTER AUS, LAUTSTAERKE MAX <184> 
398 POKE SI+23,8:POKE SI+24,15 <218> 
318 : <113> 
328 REM AUF TASTENDRUCK WARTEN <197> 
3558 REM UND ADSR SEQUENZ AUSLOESEN <197> 
3548 READ T <B48> 
358 GET A$:IF A$="" THEN 358 <196> 
3568 FOKE SI+4,WF OR 1 <836> 
378 FOR I=1 TO T:NEXT <212> 
388 POKE SI+4,WF:60T0 358 <178> 
538 EEE TTETRT F Ta <B385> 
518 REM KLANGPARAMETER <156> 
528 REM==memmemmmmemmmmgemmmzmmmemmmmmnn <857> 
558 DATA 448 :REM FREQUENZ (HZ) <8a91> 
5428 DATA 58 :REM TASTVERHAELTNIS (%) <198> 
558 DATA 54 :REM KURVENFORM <237> 
568 DATA 2 :REM ATTACK <184> 
578 DATA 8 :REM DECAY <038> 
588 DATA 8 »REM SUSTAIN <233> 
5978 DATA B :REM RELEASE <215> 
688 DATA 158 ıREM ZEIT ZWISCHEN <227> 
618 REM ATTACK UND RELEASE <147> 


Listing 1. Mit Programm 1 kann man sich damit vertraut machen, wie einzelne Tö- 
ne mit verschiedenen Kurvenformen und Hüllkurven klingen. Die Parameter lassen 


sich in den DATA-Zeilen am Ende des Programms leicht modifizieren. 





18 REM====== <118> 
28 REM PROGRAMM 2 <058> 
S@ REM <173> 
48 REM EINZEILER FUER SIGNALTON <885> 
58 REMS=S=S=22=s2zzeomemmemmmsmomemnnnne <158> 
68 S=-54272:FOR I=B TO &:READ X:POKE S+I1,X:NEXT 


:POKE S+24,15:POKE S+4,17:POKE S+4,1& 


:DATA 8,99,8,8,8,11,11 <841> 


Listing 2. Dieser Einzeiler ist gegenüber dem übersichtlichen, aber etwas aufgebla- 
senen Programm 1 so ziemlich die kompakteste Lösung, um dem SID einen Ton zu 


entiocken. Zur Eingabe muß man die Basic-Schlüsselwörter abkürzen. 


180 S1=54272 :REM BASISADRESSE <248> 
118 : <168> 
128 REM TASTVERHAELTNIS = 59% <879> 
158 POKE SI+2,8 :POKE SI+3,8 <155> 
148 : <1978> 
158 REM ADSR x979> 
168 A=9 :D=B :POKE SI+5,16*#A+D <221> 
178 S=15 :R=B :POKE SI+5,165*5+R <894> 
188 : x239> 
198 REM FILTER AUS UND LAUTSTAERKE MAX. <B88> 
208 POKE SI+23,8:POKE SI+24,15 <117? 
218 : <812> 
22@ REM FLO=®, KURVENFORM <244> 
238 POKE SI,® <117> 
248 POKE SI+4,65 <152> 
250 : <852> 
268 REM FHI AUF- UND ABWAERTS STEUERN <218> 
278 F8=58 :F1=128 <144> 
288 FOR I=9.4 TO 58 STEP .2° <057> 
298 = FOR F=F@ TO Fi STEP I <289> 
588 : POKE SI+1,F <231> 
318 : NEXT F <8a57> 
328 : FOR F=Fi TO F@ STEP -I <934> 
338 : POKE SI+1,F <BB5> 
348 = NEXTF <087> 
3558 NEXT I <842> 
368 POKE SI+4,64 <@16> 


Listing 3. Durch Verändern des höherwertigen Frequenz-Bytes in kleinen Schritten 


entsteht der Eindruck, daß der Ton kontinuierlich in der Höhe schwankt 
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134 
156 
148 
159 
1&B 
178 
188 
190 


218 


248 
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o 
S 
9 


Listing 4. Die Programmierung des SID über POKE-Befehle ist mühsam. Drei kleine 
Maschinenprogramme, die man auch als Erweiterung des BASIC-Interpreters auffas- 
sen kann, 


278 


518 
528 
538 
548 
Ssse 
568 
578 
588 
5970 
6288 
618 


Listing 5. Programm 5 zeigt, wie vielfältig Rauschen klingen kann. Die Parameter- 


DAS MASCHINENPROGSRAMM BELEGT 
DEN BEREICH ($9888-93AC) 


AUFRUFBEDINGUNGEN 
SYS PAR,S,PW,K,A,D,S,R 
BELEGT STIMME S (1,2,3) MIT 
PW (PULSWEITE 8...4995) 
K  (KURVENFORM,SYNCHRONISA- 
TION ,RINGMODULATION) 
A,D,S,R (HUELLKURVE B8..15) 
SYS EIN,S,F 


SCHALTET STIMME S MIT 
FREQUENZ F (8..65535) EIN 


EEEEETPETTEREEEEFERERTR 


SYS AUS,S 
SCHALTET STIMME S AUS 
SsSSsIsszzszuosemeon 
A=36864: B=37036 


:EIN=A+122 zAUS=A+161 
REM DATAS FUER MASCHINENPROGRAMM 


DATA 200,208,000,020,209,832,253,174 
DATA 832,158, 183, 224,204, 848, 003,876 
DATA 972,178,224,000,249,249,202,188 
DATA 927,144,096,8920,007,814, 152,872 
DATA 832,253,174,032,158,183,224,81& 
DATA 848,093,875,872,178,184,168,138 
DATA 896,832,03@,144,812,818,010,018 
DATA 141,099,144,232,230,144,813,008 
DATA 144,096,832,095,144,138,872, 152 
DATA 872,032,253,174,032,235,183,142 
DATA 080,144,1084,168,184,178,173,028 
DATA 144,157,882,144,165,821,201,822 
DATA 848,083,076,872,178,153,883,212 
DATA 165,828,153,002,212,832,049. 144 
DATA 153,085,212,032,049,144,153,086 
DATA 212,896,832,205,144,138,872,152 
DATA 872,032,253,174,032,139,173,032 
DATA 247,183,184,148,165,820, 153,008 
DATA 212,165,821,153,8981,212,1@4,17® 
DATA 189,282,144,009,001,153,084,212 
DATA 896,0352,805,144,189,082,144.041 
DATA 254,153,084,212,096 


werden von Programm 5 und 6 aufgerufen. 


S51=54272 :REM BASISADRESSE 
PAR=36938: EIN=36986: AUS=37925 


REM FILTER AUS UND LAUTSTAERKE MAX. 
POKE SI+253,8:POKE SI+24,15 


REM PARAMETERSAETZE ABARBEITEN 

READ N 

FOR I=1 TON 

READ F,A,D,S,R,T1,T2 

SYS PAR,1,8,128,A,D,5,R 

SYS EIN,1,F 

PRINT"BEISPIEL ";I;" GATE AN"; 
FOR J=1 TO Ti1:NEXT J 

SYS AUS,1 

PRINT" (ZSPACEIGATE AUS" 

FOR J=1 TO T2:NEXT J 

NEXT I 

DATA & :REM ANZAHL DER P.SAETZE 
REM=====2=22=m=eSS SS 0m emmeonoooonne 
REM PARAMETERSAETZE 

REM 

REM F ADSR T1 T2 
REMs===znnS2sosomemsmessemeenccemnnnn 
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DATA 52222, 8, 2,15, B, 1528, 22008 
DATA 25@28, 8,12, 8,12, 508, 5e9 
DATA See, 8, 5, 2, 5, 1508, 52898 
DATA 1288, 9,135, 8,12, 588,150@ 
DATA 750, 14, 8,15,13, 2909,2588 


DATA 88, 8, 8, 8,18, 2598, 5988 


<155> 
<8972> 
<827> 
<820> 
<847> 
<178> 
<867> 
<9075> 
<887> 
<167> 
<151> 
<848> 
<119> 
<137> 
<898> 
<158> 
<812> 
<841> 
<188> 
<845> 
<288> 
<B61> 
<132> 
<1685> 
<162> 
<032> 
<157> 
<8897> 
<215> 
<849> 
<233> 
<226> 
<2535> 
<831> 
<B85> 
<8977> 
<896> 
<117> 
<139> 
<ı91> 
<111> 
<157> 
<185> 
<158> 
<178> 
<195> 
<1972> 
x286> 
<223> 
<254> 
<243> 
<233> 
<252> 
<817> 
<297> 


<248> 
<182> 
<178> 
<080> 
<857> 
<288> 
<185> 
<127> 
<885> 
<B82> 
<221> 
<B885> 
<945> 
<255> 
<214> 
<827> 
<829> 
<218> 
<2979> 
<846> 
<8B5> 
<163> 
<848> 
<887> 
<2BD> 
<814> 
<197> 
<9539> 
<185> 
<188> 


sätze in den DATA-Zeilen kann man beliebig verändern oder erweitern. 
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188 DIM F(24) :REM ARRAY F. FREQUENZEN <1865> 
119 SID=54272 :REM BASISADRESSE <8708> 
128 PAR=35939: EIN=3698&: AUS=37825 <192> 
158 : <188> 
148 REM TONLEITER-FREQUENZEN BERECHNEN <139> 
158 FAUS=118:H=21(1712) <175> 
168 FOR I=2 TO 24 <885> 
178 = FCT)=INT (FAUS=17.0284+9.5) <248> 
188 = FAUS=FAUS=H x242> 
198 NEXT I <137> 
2098 : <292> 
218 REM PARAMETER FESTLEGEN <159> 
228 PW=2848 REM PULSWEITE <142> 
238 K =32 :REM KURVENFORM <832> 
248 A=8: D=9: S=B :R=9 <098> 
258 SYS PAR,1,PW,K,A,D,S,R x252> 
268 SYS PAR,2,PW,K,A,D,S,R <2B8> 
278 SYS PAR,S,PW,K,A,D,S,R <819> 
288 : <885> 
27®8 REM FILTER AUS UND LAUTSTAERKE MAX. <161> 
SB® POKE SI+23,8:POKE SI+24,15 <218> 
318 : <113> 
528 REM ZUFALLSMELODIE <249> 
S358 I=1 <119> 
548 N=INT (RND(1)#25) <171> 
358 SYS EIN,I,F(N <895> 
5648 FOR J=® TO 28:NEXT J <934> 
378 SYS AUS,I <111> 
588 FOR J=® TO 28:NEXT J <854> 
398 I=I+1:IF I=4 THEN I=1 <189> 
488 GOTO 3498 <177> 


Listing 6. Die Frequenzen der temperierten Stimmung werden über 2 Oktaven er- 
rechnet. Anschließend wird daraus eine Zufallstonfolge erzeugt. Durch zyklisches 
Ansteuern aller drei Stimmen haben die Töne Zeit zum Ausklingen. 


schen mit »hoher Frequenz« 
klingt heller oder »weißer« als 
Rauschen mit niedriger Fre- 
quenz. 

Bei der Programmierung des 
Kontrollregisters muß man sich 
vorher den Wert jedes einzel- 
nen Bits zurechtlegen und in das 
Byte packen. Das Anstoßen ei- 
nes Rechteckklanges beispiels- 
weise wird durch Setzen von Bit 
O und Bit 6 erreicht. Der numeri- 
sche Wert des Kontrollbytes ist 
dann: 210+216=65 
also: 240 POKE SID +4,65 

Ein hörbares Resultat wird 
aber auch erst dann erzielt, 
wenn vorher die Hüllkurvenpa- 
rameter vernünftig gesetzt sind. 
ADSR (Register 5 und 6) 

Die Parameter A,D,SundR 
können in 16 Abstufungen ent- 
sprechend 4 Bit Auflösung pro- 
grammiert werden. Die Stufung 
für den Sustain-Pegel ist linear. 
S=0 entspricht dem Ruhepegel, 
S=1$ entspricht dem Maximal 
pegel nach Attack. BeiS=15 be- 
sitzt die Hüllkurve keine Decay- 
Phase. Die Abstufungen für die 
Attack-, Decay- und Release- 
Zeiten sind vernünftigerweise 
nicht linear, um sehr kurze und 
sehr lange Zeiten gleicherma- 
Ben zu ermöglichen. Tabelle 2 
enthält die realisierbaren 
Attack-, Decay- und Release- 
Zeiten 

Decay und Release können di- 
rekt in die Register 5 und 6 ge- 
schrieben werden, während At- 
tack und Sustain vorher mit 16 zu 
multiplizieren sind, was einer 
Linksverschiebung um vier bi- 
näre Stellen entspricht. Ein Bei- 


spiel: 
0A= 2 ‚REM 16MS 
110D= 12 REM 3S 


1805S= |] 
IIOR= 10 :REM15S 
200 POKE SID +5, A*16+D 


210 POKE SID +6,S*16+R 

Nach vorläufigem Umgehen 
des Filters und Setzen der maxi- 
malen Lautstärke 
220 POKE SID +23,0 :REM FIL- 
TER AUS 
230 POKE SID+24,15 :REM 
LAUTSTÄRKE 
führt das Setzen des GATE-Bits: 
240 POKE SID + 4,65:REM GATE 
AN 
zu einem vernünftigen Resultat, 
Zum Abschalten des Klanges 
kann man einfach das Kontroll- 
register mit 0 besetzen, 

270 POKE SID +4,0 

doch dann hat DCOI keine Ge- 
legenheit, der Release-Phase 
entsprechend auszuklingen, da 
auch das Kurvenform-Bit (Nr. 6) 
zurückgesetzt ist. Besser ist also, 
Bit 6 gesetzt zu lassen: 

250 GET A$:IF A$="" THEN 160 
250 REM WARTE AUF EINE TA- 
STE 

270 POKE SID +4,64 :REM GATE 
AUS 

Die Basic-Zeilen zeigen natür- 
lich keinen effizienten Program- 
mierstil; sie sollen nur die Vorge- 
hensweise darstellen. 

Auf die Steuerung des Filters 
und auf die Anwendung der Le- 
seregister wird im nächsten Teil 
noch ausführlich eingegangen 
werden. So ist die Abfrage eines 
analogen Gebers (zum Beispiel 
Paddle)erst durch den SID mög- 
lich. Die sechs kleinen Beispiel- 
programme demonstrieren eini- 
ge Effekte, die man mit den bis 
hierher beschriebenen Regi- 
stern realisieren kann. 


(Thomas Krätzig/aa) 
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NOTLAy 


E in »lustiges Programm« z 
schreiben ist nicht so ein- 
fach. Wie bei Witzen im all- 
gemeinen wird der Lacher- 
folg nicht alleine durch den 
Inhalt erreicht, sondern vor 
allem durch die richtige Pla- 
zierung der Pointe und nicht 
zuletzt durch den Erzähler 
Die Notlandung ist ein 
»programmierter Gag«, eine 
Ärt Zeichentrickfilm, kein 
Witz, den man erzählen 
könnte. Der Titel des Pro- 
gramms könnte auch treffen- 
der nicht sein, und er hat 


»Notlandung«, das lustige Programm 


REM 
REM * 
REM * 
REM * 
* 
. 


EZ ZZ 2 2 Zn 1 1 1 [ii 
"NOTLANDUNG " 

VON R.SCHLEEWEISS 
&074 WEINHEIM 


LEE Z 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 


REM 
REM 
REM 
REM 
REM *SPRITE-REGISTER AUF ®B SETZEN+ 
FOR X=53248 TO 53263:POKE X,B:NEXT X 
GOSUB 2898: REM **#TITEL*+#* 

FOKE 53265,PEEK(5I265) AND 237 

:REM BILDSCHIRM WEGBLENDEN 

GOSUB ZSQBB: REM #**#=LANDSCHAFT### 
Vv=53248: 5=-54272 

REM *## SDNNE ### 

FOR 18=127536 TO 12798:READ Q8:FPOKE 


<155> 


ZEIGER 
SPR.EINSCH. 


ON BUN. 


POKE 
POKE 
POKE 
POKE 


2047,199: REM 
V+21,128: REM 
V+27,128:REM HINTERGR.PRIORIT. 
V+46,8 :REM FARBE 

POKE V+14,72:REM X-POS. 

FOKE V+15,98:REM Y-POS. 

FOR BR=1 TO 358: NEXT BR 

FOKE 53265, PEEK (53265)0R 16 

:REM BILDSCHIRM ZURUECKSETZEN 

REM ##*HELIKOPTER-LANDUNG«* 


<128> 
<229> 
<B45> 
<251> 
<154> 
<B1B> 
<134> 
<151> 
<859> 
<224> 


<170> 


<281> 
<885> 
<111> 
<B49> 


18,08:NEXT 


<239> 
<199> 
<188> 
<207> 
<B69> 
:284> 
289> 


<Z241> 


<189> 


FOR I=12288 TO 12359:READ Q:FOKE 1,0:NEXT 


EDImEeN 


Pa 


FOR 16=1269808 TO 1257B:READ Q&:POKE I&,0& 


:NEXT I& 


<260> 


108 FOR 17=126572 TO 127534:READ 07:POKE 17,07 


:NEXT I? 
118 FOKE 2048,192:REM ZEIGER SETZEN 
128 POKE V+21,129:REM SPRITE EINSCHALTEN 
159 FOKE V+29,1:REM IN X-RICHT.VERGR. 
148 FOKE V+39,8:REM SPRITE-FARBE 
158 FOKE V+28,1:REM FARBMODUS SETZEN 
i&B8 FOKE V+57,1:REM 1.FARBE 


ID2 =U.Kara 


<251> 
0238> 
<98534> 
<832> 
‘a57> 
<134> 


178 


188 FOKE V,15B:REM SPRITE X-POS. 
FOR i=S TO S+24:FOKE L,B:NEXT L 
182 FOR K=7 TOD 24:READ X:POKE S+K,X:NEXT K 


181 


185 
184 
198 
191 
195 
194 
196 
198 
229 
218 


Der Gewinner des Programmierwettbe- 
werbs »Das lustigste Programm« steht 
fest. Die »Notlandung« von Rainer Schlee- 
weiß hat eine gelungene Pointe, die auch 
nach wiederholtem Anschauen immer 
wieder zum Lachen reizt. Die Wirkung 
wird jedoch nicht nur durch die Idee alleine 
hervorgerufen, sondern auch durch die ge- 
lungene grafische Umsetzung. 





FOKE 


FOKE 


POKE S+5,9:POKE S+6,2 
FOR I=35 TO 157 i 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 





Rainer Schleeweiß, der Autor der »Not- 
landung« 


nichts mit materiellen Scha- 
denzu tun, sondern mehr mit 
einer menschlichen Schwä- 
che. Doch mehr wird nicht 
verraten. Wir mußten einige 
REM-Zeilen dessonst gut do- 
kumentierten Programms 
entfernen, um Ihnen nicht 
schon bei der Eingabe oder 
beim Studieren des Pro- 
grammlistings einen Teil des 
Spaßes vorwegzunehmen. 
Wir hoffen, daß auch Sie mit 
unserer Wahl einverstanden 
sind und genauso lachen wie 
wir. (ak) 


<149> 
<168> 
<815> 
<a59> 
<818> 
<072> 
<227> 
<228> 
<B11l> 
<254> 
<9a55> 


V+58,3:REM 2.FARBE 


S+t11,65:POKE S+18,65 


S+5,8 

S+1,& :REM TONHOEHE 
5,177:REM NIED. FREQUENZ 
5+4,65 :REM RECHTECK 
S+4,52 :REM RECHTECK AUSLOESEN <224> 
V+1,I:REM SPRITE Y-POS. <Ba75> 
12294 ,5:POKE 12295,81:POKE 122968,84 





:REM ROTOR-DREH-EFFEKT M.ZEILE 238 
228 FOR BR=1 TO 5 :NEXT BR 
232 


nem 
<2335> 


248 NEXT I 

252 REM ***ROTOR LAEUFT NACH*## 

268 FOKE V,1598:POKE V+1,157 

265 POKE S+1,4:FOKE S,177 

278 FOR I=1 TO 15 

275 FOKE S+5,8:POKE S+4,55:FPOKE S+4,32 

288 
<2353> 

298 FOR BR=1 TO 85:NEXT BR 

388 
<B48> 

318 NEXT I 

515 FPOKE S+24,22 

328 REM *##MANN NACH RECHTS##* 

325 POKE S,228:POKE S+5,8 :POKE S+6,188 

338 

:NEXT 


POKE 12294,21:POKE 12295,85:POKE 12296, 


POKE 12294,21:POKE 12295,85:POKE 12296, 


<188> 


<246> 
<127> 
<Q3@> 
<198> 
<191> 


POKE 12294,5:POKE 12295,81:POKE 12296,84 


<122> 
85 


<a92> 
<198> 
<217> 
<924> 
FOR 11=12352 TO 12414:READ Q1:POKE 11,01 


<141> 


3548 FOR I2=1241& TO 12478:READ Q2:POKE 12,02 


:NEXT 
358 POKE V+21,131 
368 FOKE V+49,8 
378 POKE V+3,157 
388 P=195 
398 FOR I=165 TO 219 STEF 3 


<166> 
<926> 
<192> 
<aB&> 
<928> 
<187> 
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408 POKE V+2,I <207> 1865 POKE S+1,65:POKE S,177 <857> 
418 POKE 29841,P:FOKE S+1,R:POKE S+4,65 10878 FOR Y=58 TO 88 <B847> 
:POKE 5+4, 64 <835> 1972 IF Y<65 THEN 1975 <178> 
420 P=F+1:IF P>194 THEN P=193 <124> 18753 POKE S+24,96-Y:REM MOTOR LEISER <256> 
438 IF I=219 THEN 458 <817> 10875 POKE S+S5,98:FOKE S+4,65:FPOKE S+4,32 <136> 
448 FOR BR=1 TO S®:NEXT BR <818> 1888 FOKE V+16,1 <151> 
458 NEXT I <142> 18978 POKE V+B,Y-5®:REM X-POS. <816> 
468 : <297> 1188 POKE V+1,1B81-Y:REM Y-POS. <9075> 
478 FOR 11=12352 TO 12414:READ Q1:POKE 11,01 1118 POKE 12294, S:FOKE 12295,81:POKE 12298,84 
:NEXT <B25> :REM ROTOR-DREHEFFEKT M. ZEILE 1128 <9070> 
4808 POKE 2941,193 <aB8> 1128 POKE 12294,21:POKE 12295,85:POKE 122954,935 
498 FOKE V+21,131:REM SPR.1,3 EINSCH. <818> <1905> 
S2D FOKE V+49,0 <976> 1153@ NEXT Y <073> 
518 POKE V+3,157:REM Y-POS. <891> 1135 POKE V+16,8:POKE Vv+9,8 <942> 
528 POKE V+2,219:REM X-POS. <2989> 1148 REM #**#* END-ZEICHEN 1.TEIL *#** <154> 
558 FOR BR=1 TO 158:NEXT BR <158> 1141 FOR I=12288 TO 12350:READ Q:POKE 1,0:NEXT I 
548 : <888> <971> 
SS5® FOR 13=12488 TO 12542:READ Q3:POKE 13,03 1142 FOR 11=12352 TO 12414:READ Q1:POKE I1,01 
:NEXT <118> :NEXT 11 “854> 
568 FOKE 2043,195 <8935> 1143 FOR I2=12416& TO 12478:READ Q2:POKE 12,02 
578 POKE V+21,139:REM SPR.1,3,4 EINSCH. <195> :NEXT 12 <9a71> 
588 POKE V+42,7 <166> 1145 REM **=* SONNE NACH UNTEN #*#%* <947> 
598 POKE V+7,168:REM Y-POS. <B888> 1145 FOR I=S TO S+24:FOKE I,8:NEXT <1354> 
600 POKE V+6,238:REM X-POS. <a94> 1147 POKE S+24,18:POKE 545, 10: POKE S+6,19D 
&18 : <158> :POKE S+3,1B2B:POKE S+2, io0 <218> 
628 POKE 2945,197 <157> 1158 FOR I=72 TO 39 STEF-1 <252> 
638 POKE V+21,171 <aS5> 1152 READ HF,LF,DR <825> 
648 FOKE V+44,7 <228> | 1154 POKE S+1,HF:POKE S,LF <231> 
658 POKE V+11,18Q8:REM Y-POS. <185> 1155 POKE S+4,65 <2359> 
668 FOKE V+19,249:REM X-FOS. <199> 11688 POKE V+14,I:POKE V+15,17@-1 <x236> 
&78 P=197 <B887> 1178 FOR BR=1 TO DR:NEXT BR <224> 
675 POKE S+6,2B88:POKE S+5,8 <149> 1172 POKE S+4,33 <242> 
688 FOR I=1 TO 88 <899> 1188 NEXT I <187> 
685 POKE S,9:POKE S+1,I:POKE S+4,129 <B&68> 1182 FOR I=S TO S+24:POKE I,B:NEXT <178> 
698 POKE 2045,P <145> 1198 REM *SPRITE-REGISTER AUF ® SETZEN# <219> 
788 P=P+1: IF P>198 THEN P=197 <157> 1288 FOR X=53248 TO 53263: POKE X,B:NEXT X <13S3> 
718 FOR BR=1 TO 18:NEXT BR <o21> 12984 REM <871> 
728 NEXT IzPOKE S+4, 1%) <251> 1205 REM **#* END-ZEICHEN 2.TEIL #*%* MI 
738 FOR Y=12488 TO 12542:POKE Y,B=:NEXT Y <164> T ZEILEN 1141,1142,1143 <B6s1> 
748 FOKE V+21,PEEK(V+21)AND 255-48 <2208> 1296 REM <873> 
755 POKE S,228:POKE S+5,8:POKE 5+5,180 <199> 1288 FOR 13=12488 TO 12542:READ Q3:POKE 13,03 
768 FOR I1=12352 TO 12414: READ O1: POKE I1,01 :NEXT IS <134> 
:NEXT <B&8> 1218 FOR 14=12544 TO 12484:READ Q4:POKE 14,04 
778 FOR 12=12416& TO 12478:READ Q2:POKE 12,02 :NEXT I4 <143> 
NEXT <885> 1228 FOR 15=12588 TO 12578:READ QS:POKE 15,05 
788 POKE V+21,131 <2@2> :NEXT 15 <160> 
798 POKE V+49,0 <112> 1258 FOR 16=12672 TO 12734:READ Q&:POKE Id,0& 
888 POKE V+3,157 <150> :NEXT I6 <177> 
818 P=193 <2@4> | 1235 POKE V+28,8:REM MEHRFARBMOD.AUF ® <@94> 
828 FOR I=219 TO 165 STEP-3 <@22> | 1248 FOKE v+39,1 <B60> 
859 POKE V+2,I <127> | 1252 POKE V+9,158 <111> 
848 POKE 2841,P:FOKE S+1,R:POKE S+4,65 1268 FOKE V+1,11® »Notlandung«, <118> 
:POKE S+4,64 <211> | 1278 POKE V+29,1 das lustige <089> 
858 P=P+1:IF P>194 THEN P=193 <@44> | 1298 FOR J=8 TO & Programm <159> 
868 FOR BR=1 TO S@B:NEXT BR <176> | 1582 FOKE v+21,1 <112> 
878 NEXT I <952> 1518 FOKE 2049,192+J <B6B> 
888 REM ***FERTIG ZUM ABFLUS#*%* <ıa8s> | 1328 FOR BR=1 TO 30:NEXT BR <124> 
1359 NEXT J <2895 
8978 FOKE 29498,192:REM ZEIGER SETZEN <B18> 15348 FOR BR=1 TO 18@2:NEXT BR <238> 
988 POKE V+21,129:REM SPR.1 EINSCH. <978> 1358 FOR K=6 TO 8 STEP-1 <B88> 
918 FOR BR=1 TO 888:NEXT BR <821> 1568 POKE 29849,192+K <111> 
928 REM *ROTOR BEGINNT ZU DREHEN* <128> 1378 FOR BR=1 TO 3Z0:NEXT BR <174> 
938 POKE V,158:POKE V+1,157 <831> 1388 NEXT K <9854> 
935 POKE s+, 4:POKE S, 177: POKE S5+24,31 1398 FOKE vV+21,8 <281> 
:POKE S+6,2 <228> | 1488 FOR BR=1 TO 400:NEXT BR <253> 
948 FOR I=1 TO 15 <1902> 1418 GOTO 1298 <2298> 
945 POKE S+5,8:POKE S+4,65:POKE S5+4,32 <295> 1582 END <897> 
952 POKE 12294 ,5: POKE 12295, 81:POKE 122954,84 2888 FRINT"{CLR}":REM *##=TITELx*%#* <142> 
<137> 2818 FOKE 53289,2 :POKE 53281,6 <814> 
9680 FOR BR=1 TO SQ:NEXT BR <B28> 2812 FOR BR=1 TO 8B88:NEXT BR <193> 
978 FOKE 12294,21:POKE 12295,85:POKE 122965,85 29315 S=54272 <239> 
<208> 2217 FOR I=S TO S+24:POKE I,®:NEXT I <857> 
9788 NEXT I <162> 2818 FOKE S+24,18:POKE S+5,12%*16+9 
998 REM *%**HEL IKOPTER-START### <a3B> :POKE S+6,15*16+19 <1653> 
995 POKE S+1,6:POKE 5,177 <252> 20828 FOR A=98 TO 39 <159> 
10888 FOR I=157 TO 52 STEP-1 <148> | 29825 POKE S+1,A+15:FOKE S,226:POKE S+4, <176> 
1885 POKE S+5,8:POKE S+4,65:POKE S5+4,32 <Bs5> 28352 POKE 1024+A+40=16, 64 <245> 
19818 FOKE V, 397-1 :REM X-Pos. <B218> 2248 POKE 55296+A+40*15, 7 <B16> 
1828 POKE vr, I:REM Y-POS. <171> 2858 NEXT A <205> 
1059 POKE 12294, S:POKE 12295,81:POKE 12296,84 2858 FOR I=8 TO 5 <207> 
:REM ROTOR-DREH-EFFEKT M. ZEILE 1949 <856> 2885 POKE S+1,65-I:POKE S,226:FOKE S+4,129 <929> 
1048 FPOKE 12294,21:POKE 12295,85:POKE 122964,85 2867 IF I1>24 THEN 28978 <128> 
<825> 2878 POKE 1824+190+49*1,56 <834> 
10858 NEXT I <233> 2288 FOKE 55296+18+40*1,1 <821> 













1068 REM **=RECHTE X-POS.x*%*%* <B19> 2098 





NEXT I <253> 
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»Notlandung«, das lustige Programm (Fortsetzung) 


28975 POKE S+4,8 
2188 FOR BR=1 TO SB2:NEXT BR 


<871> 
<189> 


2118 PRINT" (7DOWN,18RIGHT „CYAN? "NOTLANDUNG * " 


<139> 
2128 FOR BR=1 TO 7908:NEXT BR 


<211> 


21358 PRINT" <18DOWN,1SRIGHT,GREY 3,3SPACE>VON 


R.SCHLEEWEISS" 
21532 FOR BR=1 TO SBB:NEXT BR 


<225> 
<221> 


4601 
4682 
4603 
4684 
4605 
46D& 
,, 
4788 
4701 
4782 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
7,797 
DATA 
DATA 
DATA 


:REM (READ 06) 


GC 64 


<a50a> 
<118> 
<119> 
<229> 
<185> 


VIII IPTIYTITPIIIIIIIITIY 


:REM (READ 07) 


<D34> 
<217> 
<152> 
<219> 


2135 PRINT" {DOWN, 1SRIGHT „ORANGE ,4SPACE}MUSIC 
VON HARDY" <199> 
2148 FOR BR=1 TO 2Q@B:NEXT BR <B18> 
2158 RETURN <252> 
3QB8 PRINT" {CLRY":REM #*#LANDSCHAFT##* <208> 
301® POKE S3288,2:POKE 53281,14 <B41> 
3028 PRINT" (6&DOWN,BROWN,RVSONIEF" <@73> 
3030 PRINT" {RVSON,SPACE ‚BLACK}F{BROWN,SPACEIR" 
<179> 
3948 PRINT" {BLACK,RVSON,4SPACE , BROWN?" <222> 
3058 PRINT" {BLACK ,RVSON,SSPACE „BROWN, 2SPACE}F" 
<232> 
3060 PRINT" {BLACK,RVSDN,2SPACE ,BROWN,2SPACE, 
BLACK ‚2SPACE>F{BROWN,SPACEIR" <246> 
3878 PRINT" {RVSON,SPACE,BLACK,4SPACE „BROWN, 
ASPACEIE" <252> 
3@88 PRINT" {RVSON,2SPACE,BLACK,6SPACE,BROWN, 
4SPACEIE"; <Q66> 
3098 PRINT“ {RVOFF „BLUEITTTTTTTTTTTTTTTTTTTTTTTT 
117"; <@24> 
3188 PRINT" BLUEITT TTTTTT TI"; <189> 
3118 PRINT"{GREY 2,RVSONI£{12SPACEIFLRVOFF}"; 
<014> 
3129 PRINT" {BLUE,2SPACEITTTTTTT TIT" <15@> 
3138 PRINT" {2SPACEITTTT TTT{SPACE,GREY 2,RVSON} 
£{14SPACEYF{RVOFF „BLUE,3SPACEITTT TTTT" <2408> 
3148 PRINT" TTTT3SPACE>T{ZSPACE,GREY 3} 
OPOPOPOPOPOPOPOP{BLUEITTLSSPALEITTTTT" <131> 
3158 PRINT"TTTTTTTISSPACEITTT TITTT TITTTTTT 
<SSPACEITTTT{ZSPACEITTT"; <149> 
3168 PRINT:PRINT" {3SPACEITTTTTTT{SSPACEITTTT 
{SSPALEITTTTTTTTT{2SPACEITTTTT" <255> 
3178 PRINT:PRINT"TTTTTT {SSPACEITTTTTTTTI6SPACE) 
TITTITTTTTT1 1100" <239> 
320® RETURN <B26> 
4088 DATA 8,62,8 :REM SONNE <158> 
4021 DATA 9,255,192 :REM (READ 08) <178> 
4082 DATA 3,255,224 <243> 
4003 7,255,248 <246> 
4984 15,255,248 <B46> 
4085 31,255,252 <B40> 
4085 31,255,252 <@41> 
4007 63,255,252 <@47> 
4088 63,255,254 <859> 
4209 63,255,254 <851> 
4918 63,255,254 <a52> 
4211 63,255,254 <053> 
42012 65,255,254 <054> 
4913 31,255, 252 <248> 
31 ,255,252 <249> 
31,255, 252 <as8> 
15,255,248 <a58> 
7,255,248 <2D4> 
3,255,224 <983> 
1,255, 192 <BB6> 
0,62,0 <182> 
0,0,8 :REM HELIKOPTER <2B8> 
0,8,8 :REM (READ 0) <152> 
21,85,85 <191> 
2,4,8 <823> 
2,12,0 <971> 
64,63,8 <136> 
64,255,8 <188> 
255,258,8 <234> 
255,242,128 <887> 
64,242,192 <839> 
64,240,192 <a38> 
8,63,192 <192> 
2,63,0 <B85> 
0,12,8 <a89> 
0,4,16 <B89> 
1,85,64 <151> 
PPRRRERTEREIFE <2988> 
2,2,0 <116> 


<228> 
x885> 


4783 DATA 
4784 DATA 
47805 DATA <222> 
4788 DATA <9024> 
4707 DATA VIII IIITIITIPPIIIIIITIYIITITIIITTIT 
<B94> 
<182> 
<2B98> 
<057> 
<229> 
<B9&> 
<192> 
<0989> 
<B61> 
<B64> 
<B29> 
<173> 
<Bds6> 
<872> 
<122> 
<825> 
<072> 
<B7&6> 
<187> 
<975> 
u... <159> 
REM MANN NACH RECHTS <218> 
REM (HAND UNTEN) <188> 
(READ 092) <185> 
<255> 
<BS51> 
<054> 
<818> 
<B&1> 
<858> 
<B&0> 
<167> 
<815> 
<B1&> 
<817> 
<B18> 
<982> 
<B812> 
<815> 
<B14> 
<815> 
<B16> 
<199> 
<172> 
<244> 
<x245> 
<941> 
<B44> 
<D99> 
<947> 
<852> 
<858> 
<1908> 
<111> 
<992> 
<9297> 
<BB8> 
<852> 
<130> 
<073> 
<206> 
x228> 
<228> 
<226> 
<829> 
<228> 
x229> 
<829> 
<251> 


,, 
4818 DATA 12,2,0,4,8,8,192:REM MOTOR 
4828 DATA 16,2,0,6,8,8,64 :REM (READ X) 
4830 DATA 9,5,14,31 
5B22 DATA ® :REM MANN NACH RECHTS 
S921 DATA D :REM (HAND OBEN) 
5282 DATA ® :REM (READ 01) 
5003 DATA f) 
5224 DATA 
SB85 DATA 
52265 DATA 
5987 DATA 
S5a28 DATA 
5227 DATA 
5212 DATA 
5211 DATA 
5212 DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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:REM MANN STEHT 
:REM (READ 02) 
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ie Diskette für eine Ausgabe 

kostet 29,90* Mark. Sie wer- 
den bei einigen Disketten be- 
stimmte Programme vermissen. 
Deren Autoren konnten sich 
nicht entschließen, ihr Pro- 
gramm im Rahmen des Leser- 
seIvice für eine Verbreitung auf 
Datenträger freizugeben. Bei 
den Ausgaben 5 und 6 können 
noch Kassetten (VC ...) bestellt 
werden. Zu den Programmen 
sind immer die Seitenzahlen an- 
gegeben, unter der Sie die Be- 
schreibungen in der entspre- 
chenden Ausgabe finden kön- 
nen. Der Diskette liegen also 
keinerlei Informationen bei. Le- 
sen Sie daher aufmerksam die 
Anleitung (ob SYS-Befehle nötig 
sind, in welcher Reihenfolge ge- 
laden werden muß, eventuelle 
Sprach- oder Speichererweite- 
rungen und ähnliches mehr) in 


dem jeweiligen Artikel nach 
Aus Aktualitätsgründen w rird je- 


weils die abgedruckte Version 
angeboten. Eventuelle syste- 
matische Fehler, die sich noch 
im Programm befinden kön- 
nen, müssen von Ihnen selbst, 
nach Studium des Druckfehler- 


teufelchens, korrigiert wer- 
den. 
Ausgabe 2/85 
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Bedeutung der Abkürzungen Bestellungen richten Sie 
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Rx 
a 
Ss 


DATA, yssssssusuH 9, 


REM **#* END 1.TEIL *** 


DATA, sum HHH HIT HT HT HH HH nn, 


DATA,42, 


MANN NACH LINKS 
(HAND UNTEN) 
(READ 04) 


u, 
EM MANN NACH LINKS 


Das lustige Programm 


DATA,42,,,42, 


DELLSEEREZERZEEIEEEEEEEEREEREEREREER 
DELL PPSFEFEREEEEREREREREREN 
DATA,221,128,,221,128 

DATA, ss IH HIT TI TI TTT T TTT Tn 
REM FLIEGERLIED HH re 
DATA 135,10,259,9,195,5908 

DATA 14,162,1988,13,18,198 

DATA 12,78,108,15,18,258 


DATA 9,196,508 


DATA 14,1682,188,15,190,100 
DATA 12,78,1900,13,190,258 
DATA 14,162,108,168,199,1080 
DATA 17,1903,189,15,1989,258 
14,162,125,19,137,758 
21,237,259,21,257,125 
17,105,259,14,162,598 
19,137,258,19,137,125 
168,1089,259,13,198,5928 
13,18,125,14,162,125 
16,1089,259,14,162,125 
DATA 15,10,125,14,162,258 
DATA 13,10,125,12,78,125 


DATA 13,198,758 
(HAND OBEN) 
(READ 05) 


REM *** END 2.TEIL ###* 


LELLTESTEREREEEELEREREERERE) 
DATA 1,2153,128,1,157,64,1,2153,128 
LLLLEERZERZERTEREESEEREREREREERTR) 


19208 LELLPEREIERETERRERERERER 


<9a52> 
<B15> 
<227> 
<B44> 
<115> 
<245> 
<126> 
<165> 
<135> 
<188> 
<195> 
<165> 
<817> 
<831> 
<059> 
<9859> 
<062> 
<891> 
<8a59> 
<B41> 
<119> 
<BEB> 
<827> 
<959> 
<9849> 
<194> 
<B43> 
<284> 
<842> 


18001 DATA 7,162,224,4,50,144,7,42,144,4,38,144, 


7,162,224 


12882 DATA, yes ss nn 
19108 DATA, ssssssnsnunn9 5 


<147> 
<852> 
<818> 


’, 
10181 DATA 31,65,128,16,797,68,16,81,68,390,73,68, 


16,69,68, 16, 67, 68,31,65,128 
182182 DATA ang, 
18288 DATA, yysssHnHHHHHH 


<151> 
<820> 
<234> 


10201 DATA 126,65,62,64,65,33,64,97,33,64,81,33, 


124,73,35 


<114> 


18282 DATA 64,69,33,64,67,33,64,65,33,126,65,62 


DATA sommer PH  TT IT TI IT T 


DATA, sus HH HIHI HT IT T I TTnn 


W: ist ein »gutes« Termi- 
nalprogramm, bezie 


hungsweise, was zeichnet 
dieses Programm gegen- 
über anderen aus? 

Zuerst muß es einwandfrei 
funktionieren. Es soll für die 
Kommunikation von Compu 
tern über die Telefonleitung 
sorgen. Darüber hinaus muß 
das Programm aber komfor- 
tabel und benutzerfreund- 
lich sein. In diesem Punkt 
sind Ihren Ideen keine Gren- 
zen gesetzt. Hierzu einige 
Anregungen: 

Die Übertragungsparame- 
ter sollten frei einzustellen 
sein. Ideal wäre es, wennein 
Prüfprogramm mit eingear- 
beitet ist, das aulornatisch 
die  Parametereinstellung 
des anderen Computers 
überprüftundsichselbstein- 
stellt. 

Parallel zum Empfang soll- 
ten die Texte gespeichert 


IEN (INA 


grammier- 
wetibewerb: 





Um den Akustikkoppler 
oder das Modem voll auszunutzen, 
braucht man ein gutes »Werkzeug«. 
Nicht alle der meist teuren 
Terminalprogramme sind ihr Geld wert. 
Wir setzen 1000 Mark 
für das beste Terminalprogramm aus. 





<139> 
10285 DATA, yassssnHHn HH HH HHn 


<245> 


»Notlandung«, das lustige Programm (Schluß) 





werden können (die »Time 
out«-Regelung bei manchen 
Mailboxen ist zu beachten!). 
Diese Texte müssen später 
aufdem Bildschirmund dem 
Drucker abrufbar sein. Eige- 
ne Nachrichten sollte man 
vorab schreiben und später 
als Gesamtheit senden kön- 
nen. 

Ein wichtiger Punkt, den 
man nicht vergessen darf, ist 
die Übertragung von Pro- 
grammen. 

Gängige Befehle sollten 
auf den Funktionstasten lie- 
gen. 

Schicken Sie Ihre Lösung 
unter dem Stichwort »Pro- 
grammierwettbewerb: Ter- 
minalprogramm« an folgen- 
de Adresse: 

Markt & Technik Verlag AG 
Redaktion 64'er, 
Hans-Pinsel-Str. 2, 

8013 Haar bei München. 
Einsendeschluß: 28. 2. 1985 


Ancerahs 9/Fahrnar 10AS 





Fortsetzung von Seite 41 


selbst übersetzen. Denn 
schließlich läuft der Com- 
piler, da in Basic geschrie- 
ben, auf jedem Basic- 
Computer. Als Ergebnis 
erhält man den Compiler 
selbst, aber in Maschinen- 
sprache. Nun kann der ur- 
sprüngliche Compiler er- 
weitert und verbessert 
werden. Die Menge der 
Basic-Befehle, die über- 
setzt werden können, kann 
ausgeweitet werden. Mit 
dem frisch übersetzten 
»alten« Compiler übersetzt 
man den erweiterten 
Compiler. Nun hat man 
schon einen Compiler zur 
Verfügung, der einiges 
mehr kann als die erste 
Version. Aber auch die- 
sen Compiler kann man 
verbessern, erweitern 
und schließlich wieder 
übersetzen und so fort. 
So kann man aus einem 
primitiven, sogenannten 
Tiny-Basic-Compiler ei- 
nen sehr komplexen Ba- 
sic-Compiler »züchten«. 
Der große Vorteil, einen 
Compiler in seiner eige- 
nen Quellsprache zu 
schreiben, liegt alsodarin, 
daß der Compiler selbst 
als erstes Programm von 
jeder Erweiterung des 
Sprachumfanges profi- 
tiert. Dieser Vorgang, der 
auf den ersten Blick ein 
wenig an Münchhausen 
erinnert, der sich am eige- 
nen Schopfe aus dem 
Sumpf zog, wird als »Boot- 
strapping« bezeichnet. 
Wie bei allen rekursi- 
ven Verfahren bleibt noch 
die Frage nach dem An- 
fangsschritt offen. Denn 
man braucht mindestens 
einen ganz einfachen und 
primitiven ersten Compi- 
ler für das Bootstrapping. 
Nun, im Falle eines Ba- 
sic-Compilers ist die Lö- 
sungeinfach. Da der Com- 
piler selbst in Basic ge- 
schrieben ist, kann er 
auch vom Basic-Interpre- 
ter ausgeführt werden. Bei 
anderen Sprachen muß 
man in den sauren Apfel 
beißen und die erste Ver- 
sion »von Hand« in Basic 
übersetzen, damit das 
Ding überhaupt erst mal 
läuft. (ev) 
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